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本 书 是 作者 八 年 MATLAB 使 用 经 验 的 总 结 ， 精 心 设计 的 所 有 案例 均 来 自 于 国内 各 大 MATLAB 技 
术 论坛 网 友 的 切身 需求 ， 其 中 不 少 案例 涉及 的 内 容 和 求解 方法 在 国内 现 已 出 版 的 MATLAB 书 籍 中 鲜 
有 介绍 。 

本 书 首先 针对 MATLAB 新 版 本 特有 的 一 些 编程 思想 、 高 效 的 编程 方法 、 新 技术 进行 了 较为 详细 
的 讨论 ， 在 此 基础 上 ， 以 大 量 案例 介绍 了 MATLAB 在 科学 计算 中 的 应 用 。 内 容 包括 ， MATLAB 快 速 
人 门 、 重 新 认识 矢量 (向 量 ) 化 编程 、MATLAB 处 理 海量 数据 、 匿 名 函数 类 型 介绍 、 嵌 套 函 数 类 型 
介绍 、 积 分 以 及 积分 方程 求解 案例 、 优 化 及 非 线性 方程 (组 ) 求解 案例 、 人 脸 图 像 压缩 与 重建 案例 、 有 
关 预 测 分 类 的 案例 、 常 微分 方程 (组 ) 求解 案例 、 层 次 分 析 法 及 其 MATLAB 实 现 、 定 时 器 及 其 应 用 。 

本 书 可 作为 高 等 院 校本 科 生 、 研 究 生 MATLAB 课 程 的 辅助 读物 ， 也 可 作为 从 事 科 学 计算 和 算法 
研究 的 科研 人 员 的 参考 用 书 。 
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前 言 


当今 社会 ,数学 作为 一 切 学 科 基 础 地 位 的 特征 越 来 越 明 显 ,其 重要 性 不 言 而 喻 。MATLAB 
从 诞生 那 一 天 起 ,就 为 数学 和 实际 应 用 之 间架 起 了 一 座 桥 梁 , 如 今 经 过 20 多 年 的 发 展 , 这 座 桥 
变 得 越 来 越 雄伟 、 壮 观 。 现 如 今 ,从 国外 高 校 到 国内 高 校 , 从 国外 期 刊 到 国内 期 刊 ,早已 随处 可 
见 MATLAB 应 用 的 身影 。 更 重要 的 是 , 近 几 年 来 ,国内 许多 高 新 技术 公司 也 开始 普遍 应 用 
MATLAB 来 进行 算法 前 期 开发 .验证 。 

如 今 ,国内 MATLAB 相关 书籍 已 经 有 很 多 ,这 些 书 籍 极 大 地 推动 了 MATLAB 在 国内 的 
普及 。 但 是 MATLAB 发 展 迅 速 ， 目前 每 年 推出 两 个 版 本 , 现 有 书籍 对 MATLAB 高 版 本 一 些 
特有 的 编程 思想 ,高 效 的 编程 方法 .新 技术 等 , 鲜 有 专门 详细 的 讨论 。 

本 书 力图 以 一 种 全 新 的 模式 ,从 各 个 角度 将 MATLAB 呈现 给 读者 。 全 书 共 分 两 部 分 :第 
一 部 分 (第 1 一 5 章 ) 是 有 关 MATLAB 高 效 编程 的 一 些 方法 、 原 则 介绍 ;第 二 部 分 (第 6 一 12 
章 ) 是 案例 分 析 。 关于 高 效 编程 ,本 书 详细 讨论 了 传统 的 向 量化 编程 原则 在 新 旧版 本 MAT- 
LAB 下 的 异同 ,MATLAB 如 何 处 理 海量 数据 ,匿名 函数 和 庶 套 函数 灵活 、 强 大 、 富 有 弹性 的 功 
能 。 在 案例 分 析 部 分 ,介绍 了 25 个 案例 ,这 些 案例 都 来 自 我 平时 的 研究 积累 以 及 长 期 以 来 帮 
助 网 友 解 决 的 典型 问题 。 案例 涉及 复杂 的 多 重 积 分 、 积 分 方程 . 非 线 性 方程 求解 .全 局 优化 、 遗 
传 算法 .Benders 分 解 算法 ` 人 脸 图 像 压 缩 与 重建 .灰色 分 析 .距离 判别 法 与 Bayes 判别 法 在 分 
类 中 的 应 用 、 支 持 向 量 机 、 各 类 型 的 常 微分 方程 (组 ) 求 解 .层次 分 析 法 以 及 定时 器 的 应 用 等 。 

互联 网 的 兴起 催生 了 很 多 专门 讨论 MATLAB 相关 技术 的 论坛 .社区 。 这 些 社区 集中 了 
来 自 社 会 各 行 各 业 ,高 校 各 学 科 各 专业 的 MATLAB 使 用 者 .爱好 者 。 这 些 社区 往往 能 够 紧 跟 
MATLAB 的 发 展 ,并 对 其 最 新 的 技术 及 时 作出 反应 。 我 从 2005 年 开始 就 一 直 在 国内 一 些 成 
立 较 早 的 MATLAB 论坛 社区 ,如 研学 论坛 ,仿真 科技 论坛 .振动 论坛 的 MATLAB 版 面 参与 
讨论 问题 ,并 发 表 了 一 系列 技术 精华 帖 。MATLAB 中 文 论坛 成 立 后 ,我 通过 该 平台 更 是 经 党 
与 各 种 程度 的 MATLAB 使 用 者 打交道 ,了 解 MATLAB 使 用 者 最 容易 遇 到 的 一 些 问 题 ,以 及 
一 些 MATLAB 软件 最 新 的 技术 。 可 以 将 本 书 看 成 是 我 对 这 些 经 验 的 提取 与 总 结 。 

我 在 上 大 学 期 间 一 度 十 分 痛恨 “数值 计算 ”这 门 课程 ,因为 为 了 应 付 考试 而 不 得 不 背 一 些 
算法 流程 ,公式 并 手动 计算 结果 ,这 是 非常 枯燥 和 烦琐 的 。 后 来 竟 180 度 转弯 ,喜欢 上 了 数值 
计算 ,这 完全 是 因为 MATLAB 一 一 转机 就 是 大 二 下 学 期 的 数学 建 模 ,必须 要 借助 MATLAB 
完成 。 当 用 MATLAB 轻而易举 地 随意 拟 合 了 一 个 20 多 阶 的 多 项 式 来 近似 一 堆 数据 时 ,我 被 
震撼 了 。 这 种 震撼 是 忍受 了 长 时 间 无 比 枯燥 的 手动 计算 后 而 发 自 肺腑 的 。 当 然 现在 看 来 , 那 
时 候 的 拟 合 毫 无 技术 含量 , 毫 无 实际 意义 。 但 也 正 是 因为 这 个 开始 ,促使 我 不 断 去 探索 
MATLAB。 一 开始 没有 计算 机 ,就 去 看 书 ,在 图 书馆 里 看 各 种 有 关 MATLAB 的 书 。 随 着 看 
的 书 的 增多 ,MATLAB 在 脑子 里 也 越 来 越 清 晰 了 ,对 它 的 喜爱 也 越 来 越 深 。 后 来 2005 年 在 
公司 实习 , 查 资料 时 偶然 进入 论坛 这 片 新 天 地 , 蓝 然 发 现 居然 有 那么 多 相同 爱好 的 人 ,从 此 一 
发 不 可 收拾 , 便 开始 了 和 一 帮 志 同道 合 的 朋友 切磋 提高 的 过 程 。 

针对 本 书 ,北京 航空 航天 大 学 出 版 社 和 MATLAB 中 文 论坛 (http://www. ilovematlab_ 
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cn/) 特 别提 供 了 读者 与 作者 在 线 交流 的 平台 ( http://www-. ilovematlab. cn/forum-182-1. ht- 
ml ) ,我 希望 借助 这 个 平台 实现 与 广大 读者 面对面 交流 ,解决 大 家 在 阅读 此 书 过 程 中 遇 到 的 问 
题 ,分 享 彼此 的 学 习 经 验 ,从 而 达到 共同 进步 。 本 书 所 有 源 程 序 以 及 测试 数据 将 放 到 MAT- 
LAB 中 文 论坛 的 读者 与 笔者 在 线 交流 平台 及 北京 航空 航天 大 学 出 版 社 的 网 站 上 , 供 读者 自由 
下 载 。 

特别 感谢 北京 航空 航天 大 学 出 版 社 陈 守 平 编辑 ,在 她 一 再 支持 与 鼓励 下 ,我 决定 接受 挑 
战 ,完成 本 书 创作 。 

在 本 书 的 写作 过 程 中 ,我 得 到 了 天 津 科技 大 学 谢 中 华 老师 .MATLAB 中 文 论坛 创始 人 
math( 张 延 亮 ) 和 仿真 科技 论坛 前 总 版 主 bainhome( 马 良 ) 的 支持 与 鼓励 ,在 此 ,向 他 们 表示 最 
真诚 的 谢意 。 

最 后 ,还 要 感谢 我 的 家 人 和 朋友 ,在 他 们 无 微 不 至 的 关心 与 支持 下 ,我 顺利 完成 本 书 的 写 
作 , 在 此 ,向 他 们 表示 最 衷心 的 感谢 。 

由 于 作者 水 平 有 限 , 书 中 难免 出 现 错误 ,恳请 广大 读者 和 同行 批评 指正 。 本 书 勘误 网 址 
http://www. ilovematlab. cn/thread-81886-1-1. html。 
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2010 年 3 月 于 北京 市 昌平 区 
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内 容 简 介 - 


本 书 是 作者 八 年 MATLAB 使 用 经 验 的 总 结 ,精心 设计 的 所 有 案例 均 来 自 于 国内 各 大 
MATLAB 技 术 论 坛 网 友 的 切身 需求 ,其 中 不 少 案例 涉及 的 内 容 和 求解 方法 在 国内 现 已 出 版 的 
MATLAB 书 籍 中 鲜 有 介绍 。 

本 书 首先 针对 MATLAB 新 版 本 特有 的 一 些 编程 思想 ,高 效 的 编程 方法 .新 技术 进行 了 较为 详 
细 的 讨论 ,在 此 基础 上 ,以 大 量 案例 介绍 了 MATLAB 在 科学 计算 中 的 应 用 。 内 容 包括 :MATLAB 
快速 入 门 .重新 认识 矢量 (向 量 ) 化 编程 .MATLAB 处 理 海量 数据 .匿名 函数 类 型 介绍 . 嵌 套 函数 类 
型 介绍 、. 积 分 以 及 积分 方程 求解 案 倒 、 优 化 及 非 线性 方程 (组 ) 求 解 案例 ,人 脸 图 像 压 缩 与 重建 案 
例 , 有 关 预 测 分 类 的 案例 、 常 微分 方程 (组 ) 求 解 案例 .层次 分 析 法 及 其 MATLAB 实现 、 定 时 器 及 其 
应 用 。 

本 书 可 作为 高 等 院 校本 科 生 ` 研 究 生 MATLAB 课程 的 辅助 读物 ,也 可 作为 从 事 科学 计算 和 算 
法 研究 的 科研 人 员 的 参考 用 书 。 
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本 章 旨 在 帮助 从 未 接触 过 MATLAB 的 读者 能 快速 入 门 , 对 MATLAB 产生 兴趣 ,能 够 用 
MATLAB 完成 简单 任务 ,并 告 之 其 后 续 学 习 方 法 ,确保 其 能 有 效 的 持续 提高 。 

本 着 让 初学 者 迅速 上 手 的 思想 ,本章 由 MATLAB 界面 人 手 , 介 绍 基本 的 MATLAB 操作 
环境 ,进而 用 一 系列 短小 的 程序 帮助 读者 建立 起 对 MATLAB 的 最 初 印象 ,激发 学 习 兴 趣 。 在 
这 之 后 对 M 语言 进行 简明 扼要 介绍 以 帮助 读者 能 自己 编写 MATLAB 程序 。 最 后 一 节 是 笔 
者 长 期 使 用 .学习 MATLAB 并 在 国内 众多 MATLAB 论坛 与 各 层次 MATLAB 使 用 者 交流 
的 经 验 总 结 ,相信 无 论 读者 以 前 用 没 用 过 MATLAB, 都 能 从 中 得 到 收获 。 


1.1 龟 豆 MATLAB 环境 


1.1.1 MATLAB 的 启动 


Windows 环境 下 ,MATLAB 常用 启动 方法 有 以 下 几 种 ， 

1) 双击 桌面 上 的 MATLAB 快捷 方式 图 标 ( 一 般 指向 MATLAB 安装 目录 下 bin 文件 
matlab. exe 文件 ); 

2) 依次 单 击 Windows 任务 栏 上 “开始 ”按钮 “所 有 程序 ”~>MATLAB, 找 到 MATLAB 
R2009a 选项 (其 他 版 本 找到 对 应 选项 ) 进 入 MATLAB 界面 ; 

3) 单 击 Windows 任务 栏 上 “开始 ”按钮 ,在 弹出 的 开始 菜单 中 单 击 “ 运 行 ? 按 钮 ,输入 
MATLAB 并 按 Enter 键 进 入 MATLAB 界面 。 


1.1.2 MATLAB desktop 


第 一 次 启动 MATLAB 完毕 后 ,呈现 给 读者 的 是 如 图 1. 1 所 示 的 MATLAB 界面 (也 即 默 
认 状 态 下 的 桌面 )。 对 于 初学 者 来 说 ,最 主要 需要 了 解 以 下 三 个 窗口 , 即 命令 窗口 (Command 
Window) 工作 空间 (Workspace) 和 历史 命令 (Command History) 窗 口 。 
命令 窗口 是 用 来 输入 各 种 MATLAB 命令 ,观察 运算 结果 的 窗口 。 
工作 空间 可 以 用 来 浏览 程序 运行 过 程 中 或 完毕 后 得 到 的 变量 的 值 , 当 工作 空间 有 变量 后 ， 
可 以 选中 要 观察 的 变量 ,双击 它 ,MATLAB 会 新 开 一 个 窗口 来 展示 这 个 变量 的 值 或 者 属性 。 
历史 命令 窗口 里 面 记 录 了 曾经 在 Command Window 中 输入 过 的 命令 。 当 选中 的 是 历史 
”命令 窗口 或 者 命令 窗口 时 ,可 以 按键 盘 上 的 上 、 下 方向 键 来 选中 或 者 调 出 上 一 条 、 下 一 条 指令 。 
双击 历史 命令 窗口 中 某 条 指令 , 则 会 在 命令 窗口 中 重新 运行 这 条 指令 。 
由 于 本 书 的 侧重 点 不 在 基础 知识 上 ,限于 篇 幅 , 关 于 这 些 窗 口 的 详细 介绍 就 略 夫 了 。 需 要 
说 明 的 是 ,MATLAB 这 些 窗 口 操 作 非 常人 性 化 ,人 机 交互 性 非常 好 。 读 者 如 果 初 次 使 用 
MATLAB, 可 以 按照 自己 的 Windows 系统 使 用 经 验 来 试探 着 操作 这 些 窗口 .按钮 ,观察 结果 ， 
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很 快 就 会 熟悉 MATLAB 基本 的 操作 环境 。 如 果 对 某 些 图 标的 意义 不 清楚 ,可 以 把 鼠标 指针 
分 别 移 到 相应 的 图 标 上 面 ( 不 要 点 击 ) ,过 一 两 秒 钟 ,就 会 显示 当前 图 标的 功能 介绍 。 如 果 在 操 
作 过 程 中 关闭 了 某 些 窗口 ,譬如 命令 窗口 .工作 空间 等 而 改变 了 桌面 结构 , 想 要 恢复 默认 桌面 
显示 状态 ,只 需 单 击 菜单 栏 里 Desktop 菜单 项 ,进入 后 单 击 Desktop Layout, 选 择 Default 就 恢 
复 默 认 桌 面 结 构 了 。 
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图 1.1 MATLAB R2009a 默认 桌面 


1.1.3 MATLAB 程序 编辑 器 (Editor) 


MATLAB 中 M 文件 的 编写 都 在 程序 编辑 器 里 进行 。 一 个 完整 的 MATLAB 项 目 或 者 工 
程 可 能 由 一 个 或 者 多 个 M 文件 构成 ,而 一 个 M 文件 中 可 能 包含 一 个 或 者 多 个 各 种 类 型 的 
函数 。 

打开 Editor 的 常用 方法 有 如 下 几 种 : 

1) 双击 磁盘 上 现 有 的 M 文 件 ; 

2) 命令 窗口 中 输入 edit 并 按 Enter 键 ; 

3) 单 击 MATLAB 主 窗 口上 方 工 具 栏 中 天 图 标 ; 

4) 依次 选择 MATLAB 主 窗口 上 方 菜单 栏 :File-~New 一 Function M-File。 


。 获 油 闪 六 灿 站 由 汪 芭 SGVTIVJN 郊 由 市 训 同 路 诗 沪 天 本- 





1.2 MATLAB 丫 刀 小 试 


1.2.1 Hello,MATLAB 


现在 让 我 们 来 看 MATLAB 是 如 何 实现 *Hello,World!” 这 样 简单 的 程序 的 。MATLAB 
实现 起 来 非常 方便 ,一 般 常 用 的 有 两 种 方法 : 


MATLAB 快 和 
一 一 


方法 1 在 Command Window 窗口 中 输入 下 列 代码 并 按 Enter 键 , 


dispC Hello,MRTLAB1 


方法 2 ”在 Command Window 窗口 中 输入 下 列 代码 并 按 Enter 键 : 
有 = sprintf(' Hello,MRTLRB1 ') 


以 上 两 种 方法 的 区 别 是 :第 一 种 方法 是 直接 在 屏幕 上 显示 “Hello,MATLAB1!" 字 样 ;第 二 
种 方法 是 将 "Hello,MATLAB!" 作 为 一 个 字符 串 常量 赋值 给 变量 A, 然 后 在 屏幕 上 显示 A 的 
内 容 , 即 “Hello,MATLABI!” 


1.2.2 万 能 计算 器 用 法 


相信 没有 用 过 MATLAB 的 朋友 看 了 这 一 小 节 后 ,肯定 会 对 MATLAB“ 电 子 演 算 纸 ” 的 
称谓 有 较为 形象 的 认识 ,因为 对 于 简单 的 计算 问题 ,在 MATLAB 里 只 是 输入 计算 的 表达 式 然 
后 按 下 Enter 键 这 么 简单 。 

【 例 1.2-1] 计算 sin(ln(r))ema+vze3 。 

要 计算 上 述 表达 式 的 值 , 只 需要 在 Command Window 窗口 中 输入 下 列 代码 并 按 Enter 
键 , 即 得 到 结果 。 


sin(log(pi))"exp(1 + sqrt(2 x pi/3)) 
命令 窗口 中 运行 结果 如 下 ， 


二 志 
0.3388 
>> 
log 是 MATLAB 自 带 的 求 自然 对 数 的 函数 ,表达 式 中 的 四 则 运算 .指数 运算 、. 开 方 运算 等 
书写 形式 和 大 多 数 其 他 的 编程 语言 都 一 臻 
ans 是 MATLAB 中 的 表达 式 没 有 指定 赋值 给 其 他 变量 时 ,用 来 存放 表达 式 结果 的 默认 
的 变量 , 它 是 answer 的 缩写 。 
默认 状态 下 ,MATLAB 的 显示 精度 是 short 型 ,如 果 想 查看 更 多 位 的 有 效 数 字 , 可 以 通过 
运行 format long 来 实现 。 本 例 中 ,上 述 操作 的 过 程 和 结果 如 下 ， 
>> format long 
>> ans 
全 
0.338830950391107 


如 果 想 恢复 到 原来 的 显示 精度 ,只 需要 运行 format short 即 可 。 


; 傅 , 注 意 不 有 要 混 清 显 示 精 度 和 计算 精度 。MATLAB 默认 的 计算 精度 是 double 型 ,而 
显示 精度 是 呈现 结果 时 候 的 精度 ,与 计算 精度 无 关 。 很 多 初学 者 认为 显示 精度 是 short 型 时 ， 
计算 精度 也 是 short 型 ,这 是 不 对 的 。 

【 例 1.2 - 2】 计算 福彩 双色 球 一 等 奖 的 中 奖 概率 。 福 彩 双色 球 玩 法 如 下 :从 编号 1 一 33 
的 红 球 里 任 选 6 个 ,另外 在 编号 1 一 16 的 蓝 球 里 再 任 选 1 个 。 如 果 选 择 的 红 球 和 蓝 球 和 当期 
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的 开奖 结果 完全 一 致 (顺序 可 以 不 同 ) 则 中 一 等 奖 。 
这 是 个 组 合 问题 ,其 中 奖 概率 用 数学 表达 式 表示 为 一 放 ,用 MATLAB 解 ,代码 如 下 : 


之 pathoooa 尖 测 庆 训 二 人 





.6430e-o08 


分 析 结 果 可 知 ， 机 渍 来 有用 刀 分 世间 如 由 此 可 以 看 出 ,一 等 奖 对 绝 大 多 数 人 来 说 是 
可 望 而 不 可 即 的 。 


1.2.3 设计 一 个 “加 "的 动画 


【 例 1.2-3]】 随机 展示 一 下 方向 \ 大 小 、 颜 色 各 异 的 “ 回 " 字 。 
运行 如 下 代码 ,观察 呈现 的 动画 。 


function RandDisplayJiong 0 

axis off; 有 隐 去 坐标 轴 和 电 六 二 光 六 

set(gcf，menubar' none''toolbar'， eye 不 未 当 站 tuovrs 菜单 栏 和 工具 栏 
fork=1;:100 # 循 环 100 次 ER 

生 每 次 在 (rand,rand) 这 个 随机 的 位 置 , 选 择 20~…50 之 间 随 机 分 布 的 一 个 数 作为 其 字体 大 小 ,以 隶书 的 

生成 RGB 颜色 ,并 随机 旋转 一 定 的 角度 来 显示 “ 回 " 字 人 

,rand,， 人 

[fentsizef， num2strCunifrnd(20,50)) ,NEoatnaae { 隶 书 ) 回 ]，. 
rand(1,3), Rotation' ,360 * rand); 

e(0.2); * 每 显示 完 一 次 暂停 0. 2s 

















图 1.2 “ 回 " 的 动画 效果 图 
1.2.4 用 MATLAB 编写 的 第 一 个 函数 
在 本 部 分 将 编写 一 个 结构 相对 完整 的 MATLAB 郴 数 ,这 个 函数 包含 输入 和 输出 。 我 们 
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用 这 个 函数 来 解决 下 面 这 个 有 趣 的 问题 。 

【 例 1.2-4】 一 只 失明 的 小 猫 不 幸 掉 进 山洞 里 ,山洞 有 三 个 门 , 一 个 门 进去 后 走 2h 可 以 
回 到 地 面 , 从 第 二 个 门 进去 后 走 4h 又 回 到 原始 出 发 点 ,不 幸 的 是 从 第 三 个 门 进去 后 走 6h 还 
是 回 到 原始 出 发 点 。 小 猫 由 于 眼睛 失明 ,每 次 都 是 随机 地 选择 其 中 一 个 门 走 。 那么 可 怜 的 小 
猫 走 出 山洞 的 期 望 时 间 是 多 少 ? 1 

这 个 问题 如 果 按 常规 思路 , 则 需要 求 几 个 级 数 的 和 ,很 麻烦 。 不 过 可 以 这 么 想 , 设 小 猫 走 
出 山洞 的 期 望 时 间 为 *, 如 果 小 猫 不 幸 进 了 第 二 个 或 第 三 个 门 , 那 么 它 过 4h 或 6h 后 又 和 进门 
之 前 面临 的 状况 一 样 了 ,只 不 过 这 两 种 不 幸 的 情况 发 生 的 概率 都 为 1/3。 而 万 幸 一 次 性 走出 
去 的 概率 也 是 1/3。 于 是 可 以 得 到 下 面 的 方程 ; 

ti 一 2X(1/3) 十 (4 十 四 X(1V/3) 十 (6 十 X1/3 

解 得 :一 12。 

为 了 验证 结果 的 正确 性 ,下 面 用 MATLAB 编写 模拟 小 猫 ”次 出 洞 时 间 的 函数 ,该 函数 返 
回 的 结果 了 为 次 出 洞 时 间 组 成 的 数组 ,代码 如 下 ， 


function T= cat_in_holl(Cn) 
了 = zeros(1,n); 
for kx= 1:n 
c=unidrnd(3,1); 
While c 一 = 工 
ifc==2 
TCk) = TCOk) + 43 
else 
TCGk) = TOc) + 6; 


end 
c= unidrnd(3,1)) 
end 
TCk) = TCk) + 25 
end 
下 面 来 分 析 一 下 这 个 函数 .“function" 是 函数 声明 符 , 其 后 定义 了 函数 的 输出 变量 ,函数 
-名 以 及 输入 变量 ,本 例 中 ,“T? 为 函数 输出 变量 ,“cat_in_holl" 为 函数 名 ,“n” 为 输入 变量 。 第 一 
行 是 函数 的 声明 ,函数 体 必 须 另 起 一 行 开始 写 。 工 一 zeros(1,n); 表 示 生 成 一 个 1 行 n 列 的 全 
0 行 向 量 , 这 步 主要 就 是 预 分 配 内 存 , 因 为 最 后 得 到 的 工 是 小 猫 n 次 出 洞 的 时 间 组 成 的 数组 ， 
数组 长 度 事先 已 知 。 给 T 预 分 配 内 存 是 基本 的 MATLAB 高 效 编程 准则 之 一 ,关于 这 一 点 将 
在 后 续 章 节 中 详细 讨论 。 
接 下 来 是 一 个 for 循环 体 (k 从 1 循环 到 n) ,for 循环 体内 部 还 有 一 个 while 循环 体 ( 当 
天 1 时 ,运行 while 循环 体内 的 代码 ) ,while 循环 体内 还 有 一 个 计 - else 选择 分 支 结构 。 这 些 
循环 和 选择 分 支 的 意义 与 其 他 语言 都 类 似 ,不 同 的 就 是 格式 ,每 一 个 循环 体 或 者 选择 分 支 结构 
结束 时 ,MATLAB 用 “end” 来 标志 。 
unidrnd 是 MATLAB 自 带 的 函数 ,unidrnd(3,1) 表 示 在 1,2,3 中 等 概率 地 随机 生成 一 个 
数字 。 关 于 unidrnd 函数 的 详细 介绍 ,读者 可 以 运行 doc unidrnd 查看 详细 说 明 。 
打开 Editor, 将 上 述 代码 粘贴 过 去 ,保存 为 cat_in_holl. m 文件 ,并 使 之 在 MATLAB 搜索 
路 径 上 ,就 可 以 在 命令 窗口 输入 “Z=cat_in_holl(10000);” 来 观察 模拟 小 猫 10 000 次 出 洞 的 时 
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间 了 。 可 以 运行 mean(T) 观 察 平均 时 间 ,会 发 现 随 着 n 的 增长 ,mean(T) 越 来 越 接近 12 。 
1.2.5 用 MATLAB 运行 Windows 系 统 命 令 


dows XP sp2 操作 系统 。 


果 后 在 程序 最 后 一 行 加 上 “1shutdown - s"， 则 程序 运行 完毕 后 会 自动 关闭 计算 机 。 
1.2.6 用 MATLAB 发 送 电子 邮件 
下 面 以 一 个 有 意思 并 且 实用 的 问题 来 结束 本 节 一 一 用 MATLAB 发 送 电 子 邮件 。 


运行 系统 命令 关闭 计算 机 。 


子 邮箱 ) 


function MYSendMail 

Ba=Irand(100)4 

DataPath = [matlabroot,filesep, mydata.mat 门 ; 

save(DataPath，a ); 

Mailhddress = ' Gmail 的 邮箱 地 址 ， 

password = "邮箱 密码 

_setpref(' Internet '," E_mail ,MailRhddress)* 

setpref(' Internet ',"SMTP_Server'， smtp. gmail.com ); 

setpref(" Internet ', SMTP_Username ,MailRhddress); 

setpref(' Internet '，SMTP_Password ,password); 

Props = java. lang, System, getPropertiesi 

props. setProperty(' mai1. smtp.auth' ,true 5 > 汪 
props. setProperty('mail. smtp- socketFactory.class…，... 

"javax, net. ss1. SSLSocketFactory ); 

props. setProperty(' mail1. smtp. socketFactory. Port'，465 )4 
”subject='MRTLRB 发 的 测试 邮件 这 人 
content = ' 你 好 ,这 份 邮件 是 我 用 MRTLAB 发 的 ,数据 见 附件 ， 人 

sendmail( 收 件 人 Email 地 址 ,subject,content,DataPath); 


。 戈 册 闫 广 币 汪 让 贱 坏 GVTIVIN 淹 让 林 广内 小 扩 泳 关 本 瑟 痢 言 永吉 牺 瑟 世 导 党 防潮 





在 MATLAB 环境 里 可 以 运行 Windows 系统 命令 ,常用 的 方法 有 两 种 :一 种 调用 格式 是 
“! 系统 命令 ”; 另 一 种 调用 格式 是 “dos 系统 命令 ”。 下 列 实验 基于 MATLAB 2009a 和 Win- 


读者 可 以 在 MATLAB 命令 窗口 中 输入 “!calc"“!mspaint?“dos calc” 代 码 ,运行 并 观察 
结果 。 因 为 MATLAB 可 以 运行 系统 命令 ,我 们 可 以 充分 利用 这 个 功能 。 璧 如 ,一 个 程序 要 运 
行 很 长 时 间 ， 而 我 们 又 不 能 一 直 守 在 计算 机 前 ,这 时 可 以 在 程序 运行 完 并 保存 好 所 需要 的 结 


通过 MATLAB 发 送 电子 邮件 的 重要 意义 在 于 :譬如 正在 运行 一 个 程序 ,而 这 个 程序 运行 
时 间 很 长 , 几 小 时 . 几 天 甚至 更 长 ,这 期 间 我 们 不 能 一 直 守 在 计算 机 旁 , 比 如 要 回 家 ,但 是 又 急 
于 用 这 个 程序 的 结果 进行 下 一 步 的 分 析 工 作 , 这 时 候 我 们 希望 MATLAB 能 够 在 程序 计算 完 
成 时 ,将 需要 的 东西 保存 下 来 ,然后 以 “附件 ”的 形式 发 送 到 指定 的 邮箱 ,完成 后 ,MATLAB 再 


MATLAB 自 带 了 一 个 sendmail 函数 ,可 以 用 来 发 送 电 子 邮 件 。 如 果 用 sendmail 发 邮 
件 , 只 能 发 到 不 用 authentication 的 地 址 。 可 是 为 了 防止 垃圾 邮件 草 延 ,互联 网 上 的 公共 邮箱 
几乎 都 要 authentication。 那 么 怎么 实现 呢 ? 那 就 是 用 gmail 的 邮箱 ,利用 Java 的 方式 发 送 到 
其 他 邮箱 。 实 现 过 程 举例 如 下 (实验 环境 MATLAB R2009a 十 Windows XP sp2 十 Gmail 的 电 
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1.3 M 话 言 介 络 


1.3.1 数值 和 变量 


1. 数 值 

MATLAB 里 的 数值 采用 十 进 制 表示 ,并 可 以 用 科学 记 数 法 表示 ,对 于 绝对 值 小 于 1 的 小 
数 ，“0? 可 以 省 略 。 以 下 记 数 都 合法 : 

5,，0.5,，. 5, 一 .5，0. 001，6. 02e23，2. 997 9e8 ，6. 626e 一 34，6. 67e 一 11 

MATLAB 的 数值 计算 默认 是 定义 在 复数 域 上 的 浮 点 计算 ,采用 的 标准 是 IEEE754:1985 

《二 进 制 浮 点 运算 》, 一 个 非 零 的 浮 点 数 可 以 表示 为 
2Z 一 土 (1 十 亡 2 

其 中 :上 是 尾数 (0 过 7 一 1);e 是 指数 ,默认 情况 下 ,MATLAB 用 double( 双 精度 ) 型 来 表示 一 个 
浮 点 数 , 即 64 位 来 表示 z, 其 中 了 用 52 位 表示 ,e 用 11 位 表示 ,一 1022 生 e 和 1 023, 剩 下 1 位 
表示 z 的 符号 。 由 此 可 以 看 出 ,了 决定 了 数值 的 精度 ,这 个 精度 是 2-, 即 MATLAB 中 预定 
义 变 量 eps 的 值 。e 决定 了 数值 的 范围 ,其 之 所 以 没有 取 1024 和 一 1023, 是 因为 MATLAB 已 
经 为 两 个 特殊 类 型 的 数 预 留 了 。j 了 取 0,e 取 1024 表示 的 是 预定 义 变量 inf, 非 规范 化 数字 
(Denormal numbers) 由 e 取 一 1023 时 来 表示 。 

了 解 了 上 述 定义 之 后 ,就 可 以 理解 MATLAB 中 一 些 预 定义 变量 的 含义 了 ,举例 如 下 : 

eps:2 一 52 

realmin:2`(- 1022) 一 2.225l1e- 308 

realmax:(2 -eps) x* 2"1023 

读者 如 果 想 更 深入 地 了 解 MATLAB 浮 点 计算 的 有 关机 理 , 可 以 参考 MATLAB 软件 创 
始 人 Moler 教授 的 Numerical Computing with MATLAB) 一 书 的 第 一 章 。 

2. 变 量 

很 多 MATLAB 书籍 将 MATLAB 变量 分 为 MATLAB 默认 的 预定 义 变量 (如 :pi,i,j， 
epsynanyinf 等 ) 和 用 户 自己 定义 的 变量 。 

其 实 这 些 所 谓 的 预定 义 变量 是 MATLAB 内 部 的 一 些 郴 数 ,这 些 函 数 被 调用 后 返回 其 函 
数 名 所 表示 的 值 ,方便 起 见 , 人 们 仍旧 称 其 为 预定 义 变量 。 这 些 函 数 有 的 没有 输入 参数 ,如 pi， 
i, j 等 ,有 的 可 以 有 也 可 以 没有 输入 参数 ,如 realmin,realmax,epsyinf,nan 等 。 举 例 来 说 ,我 
们 直接 在 命令 窗口 输入 eps 并 按 Enter 键 , 返 回 的 是 用 double 型 来 表示 一 个 浮 点 数 情况 下 的 
精度 值 , 即 2 。 如 果 输入 eps( single ) 按 Enter 键 ,那么 返回 的 就 是 用 单 精 度 型 表示 浮 点 数 
情况 下 的 精度 值 , 即 2 。 表 1-1 列 出 了 常用 的 MATLAB 预定 义 变量 ,大 家 注意 在 编写 程 
序 时 不 要 使 用 这 些 变量 名 来 表示 自己 定义 的 变量 。 

用 户 自 定义 的 变量 。MATLAB 中 变量 或 者 函数 的 命名 遵循 以 下 三 条 原则 : 

1) 变量 名 、 函 数 名 对 字母 大 小 写 是 敏感 的 。 如 变量 data 和 Data 表示 两 个 不 同 的 变量 ， 
cos 是 MATLAB 定义 的 余弦 函数 名 ,但 Cos,COS 都 不 是 。 

2) 变量 名 的 第 一 个 字符 必须 是 英文 字母 ,其余 可 以 是 英文 字母 .数字 或 者 下 画 线 ,最 多 可 
包含 63 个 字符 (运行 namelengthmax 命令 可 以 得 到 这 个 数 ) 。 如 al,a_b_1 是 合法 的 变量 名 ， 


* 旷 沿 章 准 灿 条 淖 几 芭 HSVTLVIN 淆 由 林 训 赃 演 六 六 天 二 -西关 言 记 坟 入 瑟 站 于 尝 济 课 





日 


AM 


二 
WwW.iLove 人 Matlab cn 


.注册 评 认 下 条 由 闪 玫 GVTIVIN 郊 认 诈 芒 岂 入 认 六 天 本。 西 淹 言 永吉 入 卫 二 怀 学 辽 计 





中 
忆 


MATLAB 高 效 编程 技巧 与 应 用 : 25 个 案例 分 析 














_ayla'a$ 则 都 不 是 合法 的 变量 名 。 


3) 变量 名 中 不 得 包含 空格 .标点 ,运算 符 。 
表 1-1 MATLAB 中 常用 的 预定 义 变量 


含 义 预定 义 变量 
计算 结果 的 默认 变量 名 国 
eps | 特定 精度 表示 浮 点 数 时 的 精度 值 NaN 或 nan | 非 数 (Not a Number) ,如 0/0，co/eo 
Inf 或 inf | 特定 精度 表示 浮 点 数 时 候 的 无 穷 大 realmax 特定 精度 表示 浮 点 数 时 的 最 大 正 实数 
realmin | 特定 精度 表示 浮 点 数 时 的 最 小 正 实 数 

















1.3.2 MATLAB 程序 流程 控制 


和 其 他 大 多 数 编程 语言 一 样 ,MATLAB 主要 有 以 下 几 种 程序 流程 控制 方法 ,调用 格式 分 
别 为 : 

1. 证 -else-end 结构 

第 一 种 : 


证 expr #% expr 为 表达 式 , 如 果 成 立 , 则 执行 到 “end" 为 止 的 所 有 commands, 和 否则 不 执行 commands 
Commands; - 


庄 exprl # exprl 成 立 则 执行 commandsl; 否 则 判断 expr2# 
elseif expr2 机 如 果 expr2 为 真 , 则 执行 commands 


else % exprl，expr2 都 不 成 立 ,执行 commands3 


其 中 根据 程序 分 支 的 多 少 ,“else - if" 的 个 数 可 以 有 0 个 到 多 个 。 


2. switch - case - otherwise -~ end 结构 


Switch expr #% expr 为 表达 式 
case valuel % expr 取 值 为 valuel 时 ,执行 commandsl 
(Ccommands1) 玫 
case value2 s% expr 取 值 为 value2 时 ,执行 commands2 
(commands2) 
(commandsk) 和 
otherwise #% expr 取 值 为 valuel 到 valuek 之 外 的 任何 值 时 ,执行 commands 
《commands) 二 这 遇 
end 


“otherwise” 类 似 于 *“if -else - end” 结 构 中 的 “else”, 视 程序 逻辑 需要 ,并 不 是 一 定 要 有 ， 


第 1 章 MATLAB 快速 入 门 / /和 
/reae 


但 为 了 程序 结构 上 的 完整 性 以 及 某 些 情况 下 调试 程序 的 需要 ,建议 始终 保留 。commands 也 
可 以 为 空 语 句 。 
3.for 循环 


for ix= array 
Commands; 
end 


在 命令 窗口 中 运行 下 列 代码 ,体会 for 循环 的 用 法 。 


for ix=1:10 
a= ix 
end 


for ix= (1:10) 
已 = 
end 


for ixz=[1239456;78 9] 

已 = jx 

end 

运行 上 面 代码 可 以 发 现 ,MATLAB 的 for 循环 的 机 制 是 遍历 array 的 列 , 无 论 这 个 array 
是 向 量 还 是 和 矩阵。 如果 array 是 行 向 量 ,那么 for 就 遍历 它 的 每 个 元 素 ; 如 果 是 列 向 量 ,for 循 
环 就 循环 一 次 , 即 遍 历 列 向 量 自身 ;如 果 array 是 矩阵 ,那么 for 循环 就 遍历 它 的 每 二 列 , 循 环 
于 次 沁 是 array 的 列 数 。 此 外 ,如 果 array 是 三 维和 矩阵 ,那么 for 循环 先 遍历 第 一 页 的 所 有 列 ， 
之 后 是 第 二 页 的 所 有 列 ,等 等 。 

4.。 while 循环 


while expr 
commands; 
end 


while 循环 的 机 制 是 当 expr 为 真 的 时 候 执行 commands 命令 ,直到 expr 为 假 。 所 以 执行 
commands 命令 必须 得 在 有 限 循 环 次 数 内 使 得 expr 为 假 ,否则 while 循环 会 一 直 循环 运行 
下 去 。 

5. try - catch 结构 





tryY 让 
commands1 和 Try block 乓 人 
catch ME 
Commands2 名 Catch block 
end 


R5 风 人 


该 结构 意义 是 执行 commandsl, 如 果 不 发 生 错误 , 则 不 用 执行 contimands2; 如 果 执 行 
commands]l 的 过 程 中 发 生 错 误 ,那么 commands2 就 会 被 执行 ,同时 ,ME 记录 了 发 生 错 误 的 相 
关 信 息 。 
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6. 其 他 中 断 、 暂 停 语句 
MATLAB 在 循环 体内 还 可 以 利用 continue 语句 跳 过 位 于 它 之 后 的 循环 体 中 的 其 他 指 
令 , 而 执行 循环 的 下 一 个 和 迭代。 例如: 


for ix=1:5 
主 这 ==3 
continues 
end 
disp([ ix = ,num2str(ix)]) 


ix= 工 

ix=2 

ix=4 

这 =5 

MATLAB 可 以 用 break 语句 结束 包含 该 指令 的 while 或 for 循环 体 , 还 可 以 在 让 - end， 
switch - casey， try -~ catch 结构 中 导致 程序 中 断 。 例 如 : 


ix= 3; 
jx=6; 
if ix==3 
disp([ ix='nunm2str(ix)])3 
break 
disp([ jx='num2str(jx)])， 
end 


运行 结果 : 
ix=3 | 


可 见 break 中 断 程 序 执行 了 ,导致 jx 一 6? 没 有 被 显示 。 

pause(n) 可 以 使 程序 暂停 n 秒 后 再 继续 执行 ;pause 指令 使 程序 暂停 执行 ,等 待 用 户 按 任 
意 键 继续 ;return 指令 可 以 结束 “return” 所 在 的 函数 的 执行 ,如 果 “return? 所 在 函数 由 函数 fun 
来 调用 的 , 则 程序 将 控制 转 至 函数 fun, 如 果 “return” 所 在 函数 是 在 命令 窗口 直接 运行 的 , 则 程 
序 将 控制 转 至 命令 窗口 。 


1.4 学 习 MATLAB 的 方 流 


通过 前 面 几 节 的 介绍 ,相信 刚 接 触 MATLAB 的 读者 对 MATLAB 已 经 有 了 初步 的 了 解 。 
MATLAB 功能 非常 强大 ,前 面 介绍 的 仅仅 是 其 全 部 功能 的 非常 小 的 一 部 分 。MATLAB 本 身 
自 带 有 几 十 个 涉及 多 个 专业 领域 的 工具 箱 , 每 个 工具 箱 都 包含 很 多 解决 专业 问题 的 函数 ,这 些 
函数 都 是 建立 在 一 篇 篇 经 典 的 论文 基础 上 ,而 实际 学 习 中 没 必 要 也 不 可 能 对 每 个 工具 箱 中 的 
每 个 函数 的 用 法 都 掌握 得 很 精通 。 那 么 我 们 怎么 来 学 习 MATLAB 呢 ? 笔者 给 出 的 建议 是 : 
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用 好 help ,学 会 搜索 ,多 读 高 手 的 程序 ,自己 多 练习 。 

第 一 条 :用 好 heljp。 古 语 说 :“ 授 之 以 鱼 不 如 授 之 以 渔 ">。MATLAB 的 帮助 系统 做 得 非常 
好 ,非常 完善 ,帮助 文档 对 MATLAB 每 个 函数 的 用 法 都 进行 了 详细 的 描述 。 学 会 使 用 help 
后 ,就 好 比 学 会 了 “ 打 鱼 ”的 本 领 ,不 仅 可 以 大 大 减轻 记忆 的 负担 ,而 且 可 以 帮助 自 身 持 续 提高 
MATLAB 应 用 水 平 。 

这 里 建议 大 家 牢记 几 个 关键 词 ,有 了 它们 ,相信 很 多 时 候 就 掌握 了 解决 问题 的 方法 。 这 些 
关键 词 即 :help 或 者 doc，see also，help navigator，Tab。 不 要 小 瞧 这 几 个 词 , 可 以 毫 不 夸张 
地 说 ,这 几 个 词 带 给 读者 的 帮助 是 随 着 读者 的 MATLAB 应 用 水 平 不 断 提高 而 越 来 越 大 的 。 

运行 ”help 函数 名 ”, 会 在 command window 窗口 里 列 出 该 函数 的 详细 介绍 ,包括 调用 格 
式 , 输 入 输出 参数 的 意义 等 。 运 行 “doc 函数 名 ”, 会 调 出 该 函数 在 帮助 文档 里 介绍 的 那 一 页 ， 
可 读 性 比 “help 函数 名 ”要 好 些 , 具 体 使 用 哪个 就 看 个 人 使 用 习惯 了 。 

在 当前 查询 的 函数 的 最 后 ,MATLAB 会 在 “see also" 后 面 列 出 一 些 功能 上 和 被 查询 的 函 
数 有 相同 或 者 相似 地 方 的 一 些 函 数 。 不 要 小 瞧 这 个 “see also”, 很 有 可 能 被 查询 的 函数 完成 不 
了 预期 的 任务 ,而 实现 相关 功能 的 函数 就 在 see also 里 。 

help navigator, 堪 称 MATLAB 中 的 “百度 ”, 打 开 帮 助 文档 后 其 位 于 界面 的 左 半 部 分 。 往 
往 人 们 在 对 一 个 问题 毫 无 头绪 的 时 候 , 可 以 用 它 来 搜 一 下 相关 的 关键 词 ,很 多 时 候 会 有 意 想 不 
到 的 结果 。 璧 如 ,如 果 想 知道 MATLAB 中 有 无 求 集合 交集 的 函数 ,可 以 在 help navigator 里 
的 搜索 栏 中 输入 集合 交集 的 两 个 关键 词 “set intersect”( 注 :如 果 在 关键 词 之 间 加 “一 ”连接 号 ， 
表示 搜索 时 将 这 些 关键 词 作为 一 个 短语 整体 来 搜 ,而 不 是 各 自 独立 搜 ) , 按 Enter 键 后 发 现 , 搜 
索 结果 第 一 项 intersect 函数 的 介绍 :“Find set intersection of two vectors” 即 求 集 合 交 集 
的 函数 ,而 在 see also 里 我 们 还 一 并 得 知 了 求 集合 并 集 、 补 集 等 函数 ,收获 颇 丰 。 

Tab 键 也 非常 有 用 。 当 我 们 对 一 个 函数 记 不 清楚 的 时 候 (譬如 只 记得 前 半 部 分 某 几 个 字 
母 ) ,我 们 写 下 这 几 个 字母 并 按 Tab 键 ,MATLAB 会 列 出 所 有 刚 写 的 那些 字母 开头 的 函数 。 
我 们 找到 需要 的 函数 后 可 以 进一步 在 帮助 文档 中 查看 其 用 法 。 

总 之 ,建议 读者 经 常 翻 看 帮助 文档 ,积累 对 MATLAB 学 习 很 重要 ,经 常 翻 看 帮助 文档 ,会 
不 知 不 觉 地 积累 很 多 MATLAB 相关 技巧 .知识 。 

第 二 条 :学 会 搜索 。 当 今 社会 的 信息 量 极其 丰富 ,如 何 获取 我 们 需要 的 信息 ,搜索 能 力 的 
重要 性 不 言 而 喻 。 

对 于 MATLAB 学 习 来 说 ,搜索 能 力也 是 非常 重要 的 。 其 实在 第 一 条 中 已 经 对 搜索 能 力 
有 要 求 了 , 即 在 help navigator 中 搜索 我 们 需要 的 函数 。 对 于 MATLAB 初学 者 来 说 ,面临 的 
问题 通常 都 早已 被 解决 过 很 多 次 了 ,互联 网 上 有 很 多 现成 的 答案 。 可 是 在 各 个 MATLAB 社 
区 中 ,笔者 经 常 看 到 一 些 解决 过 好 多 次 的 问题 一 次 又 一 次 地 被 问 起 ,这 从 一 个 侧面 皮 映 了 有 相 
当 一 部 分 MATLAB 学 习 者 缺乏 搜索 能 力 。 将 问题 的 解答 寄 希 望 于 别人 总 没有 通过 自己 搜索 
并 努力 钻研 解决 来 得 印象 深刻 。 

搜索 的 关键 在 于 搜索 的 关键 词 。 一 般 说 来 ,关键 词 不 应 过 长 ,要 有 代表 性 ,在 选择 搜索 的 
关键 词 时 ,多 想 想 别人 问 与 自己 同样 的 问题 的 时 候 可 能 会 用 到 哪些 关键 词 ,并 可 以 在 网 上 看 一 
些 有 关 搜 索 技巧 的 文章 。 养 成 这 样 的 习惯 ,久而久之 ,搜索 经 验 越 来 越 丰富 ,搜索 能 力 就 会 有 
所 提高 。 

第 三 条 :多 读 高 手 的 程序 。 俗 话说 得 好 ,和 臭 棋 签 子 下 棋 , 越 下 越 臭 。 学 习 编程 也 是 如 此 。 
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MATLAB 是 一 门 灵活 性 非常 高 的 语言 ,针对 同一 个 问题 ,不 同 的 人 写 出 来 的 程序 运行 效率 可 
能 差别 巨大 。 有 些 人 不 注意 基本 的 MATLAB 编程 规范 , 写 出 来 的 代码 运行 效率 低 , 还 抱怨 
MATLAB 运行 太 慢 ;有 些 人 把 MATLAB 运用 的 得 心 应 手 , 充 分 利用 MATLAB 向 量化 编程 
优点 ,对 很 多 问题 能 写 出 不 输 于 C/C 十 十 语言 ,甚至 比 C/C 十 十 语言 还 快 的 程序 。 

读 高 手 的 程序 ,能 避免 走 很 多 弯路 ,而 且 还 能 享受 MATLAB 向 量化 编程 带 来 的 便利 、 高 
效 以 及 乐趣 。 找 到 高 手 很 简单 ,很 多 高 手 都 在 不 止 一 个 MATLAB 技术 论坛 注册 了 同样 的 
ID, 去 各 大 MATLAB 技术 论坛 翻 看 一 下 帖子 ,很 容易 就 能 发 现 哪个 ID 水 平 比较 高 ,找到 之 后 
可 以 利用 各 论坛 的 搜索 功能 搜索 一 下 他 的 帖子 , 搜 出 来 帖子 后 就 慢 慢 去 读 ,从 中 可 以 学 到 很 多 
东西 。 对 于 初学 者 ,可 能 会 发 现 很 多 问题 都 看 不 懂 , 这 很 正常 , 谁 都 有 这 个 过 程 , 重 要 的 是 现在 
能 看 懂 的 那 部 分 ,有 收获 的 那 部 分 。 看 完 这 部 分 可 以 再 看 些 通过 断 点 调试 , 查 帮 助 文档 能 看 明 
白 的 。 实 在 看 不 懂 的 就 先 放 下 ,过 段 时 间 自 己 感觉 有 进步 了 再 回头 看 看 , 慢 慢 得 会 发 现 ,每 看 
一 遍 , 自 己 就 会 有 一 些 新 的 体会 , 当 通过 自己 的 努力 看 了 很 多 遍 的 时 候 , 也 许 突 然 就 会 有 窖 然 
开朗 .峰回路转 的 感觉 ,这 种 感觉 非常 棒 , 会 给 自己 增添 不 少 学 习 信 心 以 及 乐趣 。 

建议 初学 者 开始 不 要 读 比 较 长 的 程序 ,可 以 挑 精简 的 程序 去 慢 慢 研 究 领会 ,这 样 容易 保持 
旺盛 的 学 习 兴 趣 。 

最 后 ,说 一 下 亲自 动手 练习 的 重要 性 。 对 于 任何 语言 来 说 , 写 程序 都 是 不 断 地 自我 完善 的 
过 程 ,上 来 就 写 出 没有 bug 的 代码 ,对 于 稍微 复杂 的 问题 来 说 都 是 不 现实 的 。 所 以 不 要 怕 错 
误 , 一 定 要 自己 多 动手 编写 程序 ,不 要 以 为 看 懂 书 上 的 代码 了 ,自己 就 能 编 出 来 ,只 有 自己 亲自 
写 代码 并 运行 成 功 ,才能 切身 体会 到 很 多 只 是 看 程序 所 体会 不 到 的 东西 。 如 果 觉 得 自己 看 明 
白 了 ,可 以 试 着 不 看 书 , 自 己 重 新 写 一 下 ,然后 和 源 程 序 对 照 一 下 。 

在 MATLAB 相关 技术 论坛 试 着 回答 他 人 提出 的 问题 ,也 是 一 种 被 证 明了 的 比较 有 效 的 
学 习 方 法 。 在 回答 他 人 的 问题 过 程 中 ,自己 会 去 查 Help 帮助 文档 ,搜索 ,思考 ,然后 自己 再 动 
手 , 还 能 参考 别人 给 出 的 答案 。 这 样 一 来 ,就 把 上 面 提 到 的 几 点 学 习 方法 有 机 结合 在 一 起 , 久 
而 久之 , 慢 慢 积累 ,学 得 东西 越 来 越 多 ,水 平 就 会 逐渐 提高 。 在 互助 的 过 程 中 还 能 结识 一 些 有 
着 共同 兴趣 爱好 的 朋友 ,大 家 彼此 交流 ,共同 进步 。 








从 本 章 开 始 , 进 入 本 书 的 主体 部 分 ,所 讨论 的 话题 很 多 时 候 都 是 围绕 着 “如 何 写 出 高 效 代 
码 "这 个 主题 ,而 对 一 些 基本 的 MATLAB 知识 就 不 再 做 过 多 的 陈述 。 


2.1 向 量化 编程 流行 的 一 些 观点 


MATLAB 向 量 ( 矢 量 ) 化 编程 ,是 一 个 伴随 MATLAB 发 展 的 永恒 的 话题 ,是 MATLAB 
语言 的 精 血 所 在 ,向 量化 编程 运用 好 了 ,可 以 从 代码 运行 效率 明显 改善 中 获得 成 功 的 快乐 。 传 
统 的 流行 观点 大 致 如 下 : 

1) 尽量 避免 循环 的 使 用 ,多 使 用 MATLAB 的 内 置 函数 。 

2) 能 用 逻辑 索引 解决 的 就 不 用 数值 索引 。 

3) 使 用 变量 前 养 成 预 分 配 内 存 的 习惯 。 

4) 向 量化 计算 代替 逐 点 计算 。 

5) 能 用 普通 数值 数组 完成 的 工作 尽量 不 用 Cell 型 数组 。 

6) 如 果 和 矩阵 含有 大 量 0 元 素 , 尽 量 采 用 稀疏 矩阵 来 提高 运算 速度 和 减少 存储 空间 。 

MATLAB 在 不 断 发 展 , 随 着 版 本 的 升级 ,有 些 向 量化 编程 所 描述 的 观点 基本 没 变 ,但 是 
有 些 观点 就 需要 修正 了 。 如 果 还 按 原来 的 观点 为 指导 进行 编程 ,那么 很 多 情况 下 并 不 能 得 到 
效率 明显 的 改善 ,甚至 还 不 如 按 原来 观点 所 不 提倡 的 编程 方式 编写 的 代码 效率 高 。 

高 版 本 的 MATLAB 向 量化 编程 是 一 个 比较 复杂 的 问题 ,遵循 的 原则 之 间 都 有 互相 制约 、 
相辅相成 的 关系 。 这 些 需 要 读者 在 实际 应 用 中 不 断 体会 .感悟 。 下 节 开 始 ,将 讨论 高 版 本 的 
MATLAB 高 效 编程 注意 事项 。 


2.2 重新 认识 簿 环 


2.2.1 高 版 本 MATLAB 对 循环 结构 的 优化 


从 MATLAB 6..5 版 开始 ,MATLAB 引入 了 JITGOust in time) 技 术 和 加 速 器 (accelera- 
tor) ,并 在 后 续 版 本 中 不 断 优 化 。 到 了 MATLAB R2009a, 很 多 情况 下 ,循环 体 本 身 已 经 不 是 
程序 性 能 提高 的 瓶颈 了 ,瓶颈 更 多 的 来 源 于 循环 体内 部 的 代码 实现 方式 ， 以 及 使 用 循环 的 方 
或 。 循环 就 是 多 次 重复 做 同一 件 事 , 如 果 这 件 事 本 身 的 代码 写 得 不 优化 , 放 在 循环 体内 多 次 实 
现 后 必然 造成 运行 时 间 过 长 。 

老 版 本 的 MATLAB 对 循环 机 制 的 支持 不 好 ,所 以 提倡 避免 循环 ,而 高 版 本 的 MATLAB 对 
循环 机 制 的 支持 大 大 提高 了 ,因此 就 不 必 再 像 过 去 那样 谈 “循环 ” 色 变 了 ,不 用 千方百计 避免 循环 
了 。 当 使 用 循环 造成 程序 运行 时 间 过 长 时 ,不 要 武断 地 将 代码 运行 效率 低 归结 到 使 用 了 循环 。 
有 的 时 候 , 我 们 千方百计 地 把 一 段 代 码 向 量化 了 , 凭 自 己 编 程 经 验 (很 多 是 使 用 老 版 本 积累 下 来 
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的 经 验 ) 和 常识 (从 老 的 教科 书 得 到 的 常识 ) 觉 得 程序 很 标准 .很 优化 。 殊 不 知 ,实际 测量 时 会 发 
现 其 性 能 不 比 采用 很 自然 的 想法 实现 的 程序 效率 高 多 少 ,甚至 还 会 降低 。 看 下 面 这 个 例子 : 

【 例 2.2-1] 运行 下 面 的 测试 JIT/ accelerator 的 代码 ,体会 高 版 本 的 MATLAB 对 循环 
的 加 速 。 


function JITRcceleratorTest 
u=zrand(le6,1);g% 随机 生成 一 个 1* 1000000 的 向 量 
V= zeros(1e6,1); 
tic 

ul1=u+1ly 
time= toci 
disp([ 用 向 量化 方法 的 时 间 是 :num2str(tinme), 秒 ! ])， 
tic 
for ii=1:1000000 

VCii) = uCii) + 13 

end 
time = tocy 


disp([' 循 环 的 时 间 是 :num2strCtime), 秒 ! ]); 


feature j 让 off; 

tic 

for ii=1:1000000 
VCii) =u(Cii) +15 

end 

time = toc 


disp([ 只 关闭 jit 的 时 间 是 :nunm2str(time), 秒 ! ])， 
feature accel off; 


ic 
for ii=1:1000000 
VCii) =u(Cii)+1; 
end 
time = toc; 
disp([" 关 闭 accel 和 JIT 的 时 间 是 :nunm2str(tine), 秒 ! ]); 


feature accel oni % 测试 完毕 重新 打开 accelerator 和 JIT 
feature jit on; 
end 


运行 结果 如 下 : 


用 矢量 化 方法 的 时 间 是 :0.0095308 秒 ! 

循环 的 时 间 是 :0.010176 秒 ! < 站 
只 关闭 JIT 的 时 间 是 :0.084027 秒 ! 的 
关闭 accel 和 JIT 的 时 间 是 :1.2673 秒 ! 


自从 引入 JIT 和 accelerator 后 ,MATLAB 对 这 两 项 功能 默认 都 是 打开 的 ,这 也 是 高 版 本 
MATLAB 对 循环 支持 好 的 原因 。 关 闭 JIT 和 accelerator 需要 用 到 MATLAB 一 个 未 公开 
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(Cundocumented) 的 本 数 :feature。feature accel on/off 即 为 打开 /关闭 accelerator, 类 似 的 打 
开 / 关 闭 JIT 是 feature jit on/off。 

上 面 代码 是 计算 一 个 长 向 量 与 一 个 标量 的 和 ,我 们 会 发 现 , 当 JIT 和 accelerator 都 打开 的 
状态 下 ,循环 和 矢量 化 运算 所 需要 的 时 间 从 统计 意义 上 来 讲 , 已 经 没有 显著 差别 了 。 关 闭 JIT 
后 ,运行 时 间 变 为 原来 的 8 倍 左右 ,而 再 关闭 accelerator, 运 行 时 间 立 刻 变 为 原来 的 100 多 倍 。 

再 来 看 一 个 例子 ， 

【 例 2.2-2】 由 一 个 mxXn 的 矩阵 构造 一 个 mX (m 十 n 一 1) 的 和 矩阵。 构造 方式 如 下 :以 
4X4 和 矩阵 4 为 例 ,构造 目的 矩阵 刀 ; 


及 = 
你 半 了 | 
生病 且 让 光村 
全 全 人 
栓 二 和 放 入 请 

肖 B= 

1 

0 和 和 

0 下 和 居于 八 
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例 2.2- 2 中 所 涉及 的 问题 用 循环 来 解决 非常 容易 实现 。 我 们 这 里 想 要 讨论 的 是 ,用 向 量 
化 的 方法 解决 该 问题 与 用 循环 解决 该 问题 两 种 运行 时 间 的 对 比 (还 不 考虑 写 出 向 量化 的 代码 
比 用 循环 实现 多 花 的 时 间 ) 。 

向 量化 思路 :观察 矩阵 刀 , 发 现 , 如 果 按 行 数 的 话 ,矩阵 了 3 的 元 素 排列 顺序 是 原来 矩阵 4 中 的 
每 一 行 和 下 一 行 之 间 以 四 个 0 相隔 。 这 样 可 以 计算 出 矩阵 4 中 的 元 素 在 矩阵 妃 中 相应 的 索引 值 
5 当然 是 按 行 )T, 那 么 可 以 生成 一 个 和 矩阵 4 大 小 一 样 的 全 0 矩阵 了 ,然后 令 BCD 一 a(:); 最 后 注 
意 到 MATLAB 是 按 列 的 顺序 遍历 元 素 的 ,所 以 最 后 再 将 矩阵 也 转 置 。 写 成 代码 就 是 ; 


function B = rowmove(R) 
[m,n] = size(CR); 
工 = repmat(1:nymyI) + repmat((0:m 一 1)"* (mm+n),1,n); 
B= zeros(m+Dmn 一 1Tm); 
BCIC:))=RC:); 
B=B' 


循环 的 代码 如 下 : 


function C = LoopRowMove(CR) 
[m,n] = size(Ch) 

C= zeros(mym+n 一 1); 

for k = 1:m 

CGOk,k:k+n-1)=Rk,:); 

end 


可 以 看 出 ,循环 的 思路 以 及 操作 非常 简单 ,就 是 循环 赋值 操作 。 下 面 随机 生成 一 个 
1000X1000 的 矩阵 ,来 用 上 述 两 种 方法 来 比较 一 下 运行 速度 ， 


瑟 澳 言 寺 妆 互 机 于 兰 沪 刘 


* 芒 沿 证 并 灿 六 出生 二 8VTIVIN 淹 由 市 区 岂 监 访 天 村 - 





路 


AAA/ 本 MATLAB 高 效 编程 技巧 与 应 用 : 25 个 案例 分 析 


配 源 言 记 地 迟 互 此 中 半 防潮 


。 攻 闪 间 六 灿 六 直 贱 二 9VTIVIN 漳 由 机 这 册 注 诅 沫 天 过 < 
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五 = rand(1000); 
ticiB = rowmove(R) time = tocs 
disp([ 向 量化 求解 时 间 是 :num2str(time), 秒 ! ]) 
ticiC = LoopRowMove(R) ;time = toci 
disp([ 用 循环 求解 时 间 是 :nun2str(tine), 秒 ! ]) 
if isequal(ByC) 
disp( 两 种 方法 结果 完全 一 样 ) 
end 


运行 结果 如 下 : 


向 量化 求解 时 间 是 :0. 11389 秒 ! 
用 循环 求解 时 间 是 :0.054231 秒 ! 
两 种 方法 结果 完全 一 样 


循环 的 时 间 反 而 不 到 向 量化 时 间 的 一 半 ,而且 循环 的 代码 要 比 向 量化 的 代码 容易 写 得 多 , 算 
上 “开发 ”时 间 ,本 例 用 循环 比 用 向 量化 要 高 效 的 多 。 这 是 为 什么 呢 ? 因为 本 例 循环 结构 内 部 的 
代码 仅仅 为 “赋值 ?这 样 简单 的 操作 ,不 存在 函数 调用 。 目 前 在 高 版 本 的 MATLAB 中 ,循环 本 身 
往往 不 是 程序 瓶颈 ,反而 函数 调用 产生 的 额外 开销 在 很 多 情况 下 是 构成 程序 瓶颈 的 因素 之 一 ,万 
其 是 采用 大 量 低 效 率 的 函数 结构 时 (譬如 inline 对 象 ,这 个 将 在 后 续 章 节 详 细 讨论 ) 。 

反观 向 量化 操作 ,调用 了 两 次 repmat 函数 ,至 于 repmat 内 部 又 做 了 些 什么 ? 有 兴趣 的 
话 ,可 以 运行 edit repmat 命令 ,查看 repmat 的 源 代 码 ,会 发 现 , 里 面 有 很 多 行 代码 都 是 这 个 问 
题 没 必要 执行 的 。 事 实 上 ,为 了 保证 每 个 函数 具有 尽 可 能 广 的 适应 面 ,Mathworks 开发 人 员 
在 编写 函数 时 一 般 都 在 函数 入 口 处 做 很 多 层 判断 ,确保 不 同 的 输入 能 正确 地 执行 相应 的 语句 。 

图 2.1 所 示 的 窗口 是 用 MATLAB 的 Profiler 工具 剖析 “B=rowmove(A);” 这 条 语句 的 
结果 。 可 以 看 出 ,两 次 调用 repmat 函数 所 占 时间 比 例 最 高 ,其 次 是 转 置 操 作 , 这 两 项 一 共 占 去 
了 整个 程序 的 运行 时 间 的 62% ,而 这 两 项 对 于 本 例 来 说 完全 都 可 以 避免 。 而 用 循环 实现 时 ， 
只 需要 赋值 m 次 即 可 ,所 用 的 系统 开销 相对 要 少 。 
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图 2.1 剖析 例 2.2-2 所 用 的 向 量化 方法 性 能 














一 些 读者 在 使 用 MATLAB 的 过 程 中 对 向 量化 的 高 效率 体会 颇 深 ,加 上 传统 的 书籍 以 及 
网 络 上 流传 的 传统 观点 对 循环 的 低 效率 的 描述 ,导致 其 逐渐 形成 一 种 观点 ,就 是 只 要 是 循环 ， 
效率 就 是 低 的 。 从 上 面 的 例子 可 以 看 到 不 能 一 味 地 和 否认 循环 ,下 节 会 讲 到 ,MATLAB 效率 低 
往往 是 由 于 发 生 大 量 函数 调用 以 及 算法 本 身 运 算 次 数 多 引起 的 。 和 莒 如 计算 多 项 式 : 

加 (Z) 一 az 十 azzs 十 aaz2 十 ai 十 as 

如 果 直 接 按照 上 述 表达 式 按部就班 进行 的 话 , 我 们 需要 计算 4 十 3 十 2 十 1 一 10 次 乘法 以 及 

4 次 加 法 ,如 果 用 下 述 表 达 式 计算 ， 
zi (Z) 一 (((aZz 十 as )Z 十 aa )z 十 al )z 十 as 

则 只 需要 计算 4 次 乘法 和 4 次 加 法 , 随 着 多 项 式 次 数 的 增加 ,差距 将 越 来 越 明 显 。 请 看 下 面 的 
例子 。 


105 二 1 


【 例 2.2-3】 计算 JR&(GI 十 10 5)105H4 。 
二 一 1 


对 于 本 例 可 以 利用 sum 函数 ,polyval 函数 以 及 根据 前 述 将 多 项 式 拆 开 的 算法 自行 写 代 
码 来 实现 


clear 
N=le6+1;k=[l:Nm;x=1+le-6; 
tic 
p1 = sum(k, *x. LN 一 1:-1:0]); gs 方法 1: 用 son 函数 的 方法 
pl1，toc 
tic，p2 = polyval(k,x) ，toc % 方 法 2: 调 用 polyvol 函数 实现 
tic，p3=k(1); 
for i=2:N 第 nested multiplication 
p3<= p3wx+k(i); 
end 四 到 
p3ytoc # 方 法 3: 根 据 上 述 多 项 式 求 和 算法 实现 
pl1= 
7.1828e+ 011 
Elapsed time is 0.167499 seconds. 
Bp2 = 
7.1828e+ 011 
Elapsed time is 0. 039696 seconds. 
p3 = 
7.1828e+ 011 
Elapsed time is 0.014916 seconds. 


从 上 述 运 行 结果 来 看 ,根据 多 项 式 求 和 算法 自 己 编 写 并 且 还 用 到 了 循环 的 代码 ,所 用 的 时 
间 最 短 。 值 得 一 提 的 是 :polyval 函数 核心 部 分 也 是 采用 上 述 方法 3 中 的 多 项 式 求 和 算法 ,但 
是 为 什么 时 间 要 稍 长 一 些 呢 ? 这 是 因为 polyval 函数 比较 通用 化 ,里 面 有 一 些 额 外 的 代码 考 
虑 的 是 各 种 可 能 出 现 的 情况 , 感 兴趣 的 读者 可 以 在 命令 窗口 中 运行 “type polyval” 查 看 其 源 代 
码 运行 即 可 明了 。 关 于 这 方面 的 代码 运行 效率 问题 2. 3 节 还 会 涉及 。 

下 面 再 看 一 个 算法 本 身 引 起 的 效率 差异 的 例子 ,该 例 也 是 被 很 多 网 友 经 常 问 到 的 问题 

【 例 2.2- 4】 如 何 从 1,2,… 汪 这 产 个 数字 中 随机 选 出 和 个 不 重复 的 数字 。 

一 个 比较 容易 想到 的 办 法 就 是 利用 raridperm 函数 ,随机 排列 1,2，… 这 半 个 数字 ,然后 
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取 前 冯 个 。 可 是 这 样 做 在 壮 较 大 而 zm 较 小 时 效率 不 高 ,因为 只 需要 疡 个 不 重复 的 数字 , 却 把 
所 有 的 数字 都 重新 排列 了 一 下 。 可 以 利用 下 面 的 算法 : 

令 a=[1,2,…，, 站 ,对 于 站 从 1 循环 到 m, 随 机 等 概率 地 生成 一 个 属于 守 到? 的 随机 整数 
ind ,交换 a[ 回 和 a[ing 的 值 , 循 环 完毕 后 取 a[1] 一 a[zo] 。 

上 述 算法 写成 代码 如 下 : 


function rz = randnchoosek(nym) 
mn;: 数 组 ,需要 从 中 随机 选取 mm 个 不 重复 的 元 素 
gr* 数组 n 中 随机 选取 的 严 个 不 重复 的 元 素 
ln = length(n); 
for 奔 = 1 :m 
ind=i-1+unidrnd(ln 一 i+1) 
a=n(ind); 
nind) =n(i); 
mn(i) = as 
end 
r=n(1:mn)5 


对 于 "一 10' ,mm 一 1000 的 情况 ,我 们 可 以 比较 两 种 方法 的 运行 速度 ， 


clearitic 

机 = le6i 和 = 1000; 

rnN= randperm(N); 

rl = rnN(CI :m) ;toc 

ticir2 = randnchoosek(1:Nym)itoc 
Elapsed time is 0.233197 seconds. 
Elapsed time is 0.038107 seconds. 


可 见 第 二 种 方法 比 第 一 种 快 得 多 。 
2.2.2 选择 循环 还 是 向 量化 


关于 该 用 循环 还 是 向 量化 ,这 是 一 个 比较 复杂 的 问题 。 笔 者 结合 多 年 使 用 MATLAB 经 
验 给 出 的 建议 如 下 : 

(1) 凡是 涉及 答 阵 运算 的 时 候 , 则 尽量 用 向 量化 

这 是 因为 ,向 量化 编程 是 MATLAB 语言 的 精 篮 ,如果 不 熟悉 其 向 量化 编程 的 方法 , 则 相 
当 于 没 掌握 这 门 语言 。MATLAB 以 和 矩阵 为 核心 ,MATLAB 卓越 的 矩阵 计算 能 力 是 建立 在 
LAPACK 算法 包 和 BLAS 线性 代数 算法 包 的 基础 之 上 的 。 这 两 个 算法 包 里 的 程序 都 是 由 世 
界 上 多 个 顶尖 专家 编写 并 经 过 高 度 优化 了 的 程序 。 璧 如 算 和 矩阵 乘法 的 时 候 , 就 不 要 用 循环 了 ， 
因此 时 循环 方法 不 仅 运行 效率 大 大 低 于 MATLAB 的 矩阵 乘法 ,而 且 开 发 效率 也 非常 低 。 

需要 说 明 的 是 ,本 原则 是 建立 在 参与 运算 的 矩阵 不 太 大 ,能 够 适应 系统 物理 内 存 的 条 件 下 。 

(2) 如 果 向 量化 可 能 导致 超大 型 矩阵 的 产生 ,使 用 前 要 慎重 

向 量化 操作 获得 的 高 效率 很 多 时 候 是 以 空间 换 时 间 实 现 的 。 

具体 说 来 就 是 把 数据 以 整体 为 单位 ,在 内 存 中 准备 好 ,从 而 使 得 MATLAB 内 建 的 高 效 函 
数 能 批量 处 理 。 如 果 处 理 的 数据 量 很 大 ,譬如 一 些 图 像 数 据 ` 地 质数 据 ` 交 通 数据 等 等 ,那么 可 
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能 导致 其 准备 过 程 以 及 存储 这 些 和 矩阵 耗 费 数 百 兆 乃 至 千 兆 ( 吉 ) 甚 至 更 多 的 内 存 空间 ,如 果 超 
过 系统 物理 内 存 空间 ,那么 会 造成 效率 的 低下 。 原 因 如 下 ， 

第 一 ,数据 准备 过 程 也 是 需要 耗费 资源 的 ,事先 存储 大 规模 的 矩阵 ,势必 造成 留 给 MATLAB 
计算 引擎 乃至 操作 系统 的 物理 内 存 大 大 减少 ,如 果 系 统 内 存 不 够 大 ,势必 大 大 影响 计算 效率 。 

第 二 ,如 果 参 与 运算 的 矩阵 尺寸 过 大 ,可 能 导致 虚拟 内 存 的 使 用 ,那么 当 对 这 块 矩阵 进行 读 
写 和 计算 时 可 能 涉及 频繁 的 内 存 与 外 存 交换 区 的 输入 /输出 ,会 造成 效率 的 急剧 下 降 。 这 时 应 该 
对 程序 进行 重新 思考 和 设计 ,后 面 章节 会 就 MATLAB 如 何 有 效 处 理 大 规模 矩阵 进行 专门 讲解 。 

(3) 向 量化 的 使 用 要 灵活 ,多 分 析 其 运行 机 制 , 并 与 循环 做 对 比 

在 网 上 经 常 看 到 一 些 MATLAB 使 用 者 视 MATLAB 的 循环 为 “洪水 猛兽 ”, 千 方 百 计 避 
免 循 环 , 不 管 什么 程序 都 要 想 尽 办 法 将 其 向 量化 。 好 像 只 要 向 量化 ,速度 就 会 神奇 的 上 去 ,可 
是 ,向 量化 有 些 时 候 会 增加 实际 运算 次 数 ,这 往往 出 现在 那些 不 适合 向 量化 的 过 程 中 。 这 样 ， 
即使 绞 尽 脑 汁 , 生 搬 硬 套 地 利用 一 些 向 量化 技巧 ,向 量化 的 函数 让 操作 变 成 矩阵 运算 ,但 是 增 
加 的 无 用 计算 使 得 即便 是 更 高 效 的 引擎 也 无 法 挽回 损失 。 例 2.2 -2 就 很 好 地 证 明了 这 一 点 。 

(4) MATLAB 初学 者 要 尽量 多 用 向 量化 思路 编程 

MATLAB 是 一 门 灵活 性 与 高 效 性 结合 的 非常 好 的 语言 。 我 们 不 能 过 分 强调 、 夸 大 向 量 
化 编程 的 优势 , 当然 更 不 能 把 MATLAB 当成 C/C 十 十 等 语言 来 使 用 。MATLAB 初学 者 一 
定 要 提醒 自己 ,处 处 想 尽 办 法 矢量 化 编程 ,而 暂时 先 不 管 矢量 化 后 会 不 会 得 到 性 能 大 幅 提 高 或 
者 应 不 应 该 向 量化 。 

这 是 因为 ,只 有 当 你 充分 熟悉 MATLAB 语言 特点 并 且 熟 悉 其 最 常用 的 内 置 函 数 之 后 才能 
灵活 运用 向 量化 和 非 向 量化 。 向 量化 编程 往往 需要 程序 编写 者 熟悉 MATLAB 的 常用 内 置 函 
数 ` 常 用 技巧 ,并 且 在 向 量化 一 个 程序 的 过 程 中 有 效 锻炼 其 观察 .分析 、 概 括 .抽象 .归纳 的 能 力 . 

- 经 过 大 量 向 量化 编程 的 训练 后 ,MATLAB 学 习 者 能 够 更 加 深入 、 细 腻 地 感受 MATLAB 
语言 的 优 缺 点 ,能 够 积累 大 量 的 内 置 函数 使 用 经 验 以 及 常用 的 向 量化 技巧 。 既 能 从 高 效 、 优 
美 ,简洁 的 向 量化 代码 中 获得 意 想不到 提速 带 来 的 快乐 ,也 能 遇 到 经 过 向 量化 反而 没有 提高 效 
率 的 困惑 ,从 而 迫使 自己 进一步 加 深 对 MATLAB 语言 的 了 解 。 

只 有 当 对 MATLAB 向 量化 函数 ,技巧 都 了 解 的 时 候 , 才 能 为 以 后 高 效 的 利用 MATLAB 
编程 打下 坚实 基础 。 

《5) 高 效 的 编程 包括 高 效 的 开发 和 高 效 的 运行 

我 们 应 该 明白 自己 的 程序 目的 是 要 干什么 。 如 果 仅 仅 是 验证 某 个 东西 ,程序 最 多 运行 几 
次 以 后 就 不 会 再 用 了 。 那么 这 个 时 候 高 效 的 编程 就 是 怎么 能 够 尽快 实现 程序 的 功能 ,让 程序 
尽快 在 可 接受 的 时 间 内 跑 出 正确 的 结果 。 

如 果 我 们 采用 自己 容易 想到 的 思路 实现 这 个 程序 ,程序 运行 几 秘 就 可 出 结果 。 而 我 们 为 
了 优化 这 个 程序 多 花 的 时 间 远 远大 于 优化 后 的 程序 所 节约 的 时 间 , 这 是 得 不 偿 失 的 ， 


2.3 提高 代码 效率 的 方法 


2.3.1 预 分 配 内 存 
当 和 矩阵 较 大 时 , 预 分 配 内 存 (preallocation) ,是 MATLAB 高 效 编程 中 最 应 该 注意 ,但 其 也 
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是 很 容易 把 握 的 一 个 技巧 。 看 下 面 的 例子 : 
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【 例 2.3-1] 比较 预 分 配 和 不 预 分 配 内 存 对 程序 运行 速度 的 影响 。 


function PreRhllocMemVSnot 
mn= 30000; 
ticy 
for k= 135n 
aa(k) = 13 
end 
time = toci 
disp([ 未 预 分 配 内 存 下 动态 赋值 长 为 ',num2str(n), 的 数组 时 间 是 :num2strCtine) , 秘 ! 了 ) 
第 第 


tic 
b= zeros(1yny double')); 
for kx = 1:n 
b(k) = 1; 
end 
time = tocs 
disp([ 预 分 配 内 存 下 赋值 长 为 ,nun2str(n) ,的 数组 时 间 是 :",nunm2str(tine) , 秒 ! 中 ) 


运行 结果 如 下 : 

>> Prehl1locMemVSnot 

未 预 分 配 内 存 下 动态 赋值 长 为 30000 的 数组 时 间 是 :0.58989 秒 ! 
预 分 配 内存 下 赋值 长 为 30000 的 数组 时 间 是 :0. 0004281 秘 ! 


速度 相差 1000 倍 之 巨 ! 例子 中 仅仅 是 一 个 长 为 30 000 的 数组 ,数组 的 长 度 越 大 ,这 种 差 


距 越 明显 。 造 成 上 述 速度 巨大 差距 的 原因 是 什么 呢 ? 原因 是 MATLAB 动态 扩充 数组 在 内 存 
中 是 按 图 2. 2 所 示 的 过 程 进行 的 。 





图 2.2 MATLAB 动态 扩充 数组 内 存 实现 方式 
图 2. 2 描述 的 是 如 下 代码 在 内 存 中 的 实现 方式 ， 
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>X=15 
>> x(2) =2; 
>>x(3) = 3; 


图 中 的 16 进 制 数字 代表 内 存 地 址 ,现在 以 1,2,3 来 依次 给 x 动态 扩充 赋值 ,由 于 MAT- 
LAB 默认 是 以 双 精 度 来 表示 数字 的 ,因此 每 个 数字 占 8 字 节 (8B)。 可 以 看 出 ,每 次 赋值 ， 
MATLAB 都 会 在 内 存 中 重新 开辟 一 块 和 当前 赋 完 值 之 后 的 x 的 尺寸 相等 的 连续 区 域 来 存储 
x，* 并 把 原来 x 存储 的 元 素 赋值 到 新 的 相应 区 域 。 可 以 想象 , 当 动态 赋值 一 个 大 型 数组 时 ,会 
有 大 量 的 时 间 耗 费 在 无 谓 的 内 存 读 写 上 ,数组 越 长 ,耗费 的 时 间 增 长 得 越 快 。 而 事先 向 量化 
呢 ? 即 

>> x= zeros(3,1, double); 

>>XCLI) =1; 


>>x(2) =2; 
> x(3) = 34 


图 2. 3 展示 了 这 一 过 程 。 





图 2.3 MATLAB 预 分 配 内 存 后 赋值 实现 方式 


由 图 2. 3 可 以 看 出 , 预 分 配 内 存 后 ,不 会 有 时 间 浪 费 在 无 谓 的 内 存 读 写 上 ,效率 得 到 了 大 
大 提高 。 

细心 的 读者 可 能 已 经 注意 到 了 前 面 预 分 配 内 存 的 程序 ,譬如 b=zeros(1,n，double ); 和 
我 们 常见 的 预 分 配 内 存 zeros 用 法 有 些 不 同 , 多 了 一 个 数值 类 型 输入 参数 ,其 实 这 是 MAT- 
LAB R2009a 又 一 个 改进 的 地 方 。 很 多 人 没有 注意 这 点 ,b 王 zeros(1,n，double ) 或 者 b(1,n) 
一 0 效率 要 远 远 高 于 b= zeros(1,n), 这 是 因为 前 者 并 不 在 物理 内 存 中 真正 写 人 这 样 一 个 抢 
阵 , 而 是 在 MATLAB 进程 的 虚拟 内 存 空间 中 声明 所 需要 的 一 片 连续 地 址 , 当 对 生成 的 矩阵 进 
行 操作 时 , 写 人 物理 内 存 操作 才 真 正 发 生 ; 而 运行 后 者 b 王 zeros(1,n) ,在 MATLAB 的 虚拟 内 
存 空间 中 声明 以 及 写 人 物理 内 存 都 会 发 生 , 所 以 效率 比较 低 。 有 兴趣 的 读者 可 以 用 R2009a 
版 本 试 试 下 面 的 代码 (多 运行 几 次 看 时 间 差别 ) : 


ty 人 T 
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clear; 

ticja(10000,5000) = 0itociclear 
ticija= zeros(10000,5000) ;tociclear 
ticija= zeros(10000,5000，double ) ;toc; 


经 过 笔者 验证 ,包括 MATLAB 2008a 在 内 的 以 前 的 MATLAB 版 本 都 不 具有 这 个 性 质 ， 
笔者 没有 验证 MATLAB R2008b 版 本 ,有 兴趣 的 读者 可 以 自行 去 验证 。 


2.3.2 选用 恰当 的 函数 类 型 


MATLAB 有 多 种 函数 类 型 ,不 同 的 函数 类 型 调用 效率 差别 相当 大 ,为 了 写 出 高 效 的 
MATLAB 代码 ,我们 要 选用 恰当 的 函数 类 型 来 完成 我 们 的 任务 。 下 面 将 以 一 个 实用 的 例子 
简要 介绍 一 下 MATLAB 常用 的 一 些 函 数 类 型 ,并 比较 其 效率 ,相关 函数 类 型 的 详细 介绍 将 放 
在 后 面 章节 进行 。 


【 例 2.3-2】 求 FC) 一 | sincmdz , 取 [0,5] 区 间 不 同 值 时 的 函数 值 ,并 画 出 函数 


图 像 。 该 例 的 意义 在 于 其 求解 方法 对 于 一 些 复杂 的 ,无 显 式 积分 表达 式 的 带 参 数 积分 问题 具 
有 通用 性 。 

本 例 关 键 就 是 积分 表达 式 中 不 同 的 &, 如 何 让 MATLAB 识别 的 问题 。 初 学 者 对 这 个 问 
题 爱 用 符号 积分 ,诚然 本 例 函 数 关于 工具 有 显 式 原 函数 表达 式 , 符 号 积分 可 以 奏效 ,但 是 现实 
工程 中 很 多 问题 的 积分 表达 式 很 复杂 ,是 没有 显示 原 函 数 表达 式 的 ,这 时 候 符号 积分 就 行 不 通 
了 ,只 能 用 数值 积分 。 下 面 的 解法 中 就 这 个 问题 分 别 用 inline 函数 类 型 .匿名 函数 类 型 . 嵌 套 
Cnested) 函数 类 型 进行 了 求解 。 考 虑 到 一 般 熟 悉 MATLAB 的 读者 对 普通 子 函 数 都 比较 了 
解 ,因此 没有 给 出 普通 子 函数 的 解法 。 读 者 完全 可 以 参照 嵌 套 函数 的 方法 自己 尝试 用 普通 子 
函数 实现 。 求 解 这 个 问题 的 代码 如 下 : 


kk = linspace(0,5); 
殉 = zeros(size(k)); 
for i= 1:Jength(k) 
Jk=kCi)y 上 呈 为 
fun = inline([" sin(',num2str(kk)，x# xD) xx. 2 ]); 
允 (i) = quadl(fun,0,5)3 让 和 
end 
time= toci 
disp([ 用 inline 方 法 的 时 间 是 :num2str(time)， 秒 ! 7 
%s$% 用 anonymous function 解决 
tici 
下 = @(c) quadl(@(x) sin(k. * xD).#x. 2 0 5)3 0 
-kk= linspace(0,5); 
有 2 = zeros(size(kk))5 
for 这 =1:lengthCkk) 
” 2(ii) = fdk(ii))4 NS 
end 


条 -二 剑阁 和 
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形 如 图 2.4 所 示 。 
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从 例 2. 3 - 2 可 以 看 出 ,匿名 函数 和 摧 套 函数 的 效率 要 明显 高 于 inline 函数 ,而 且 在 参数 
传递 方面 要 比 inline 函数 方便 高 效 。 不 熟悉 匿名 函数 或 者 嵌 套 函数 的 读者 可 能 对 匿名 函数 或 
者 嵌 套 函数 的 用 法 理解 得 不 是 很 透彻 ,这 没关系 ,对 其 的 详细 介绍 将 放 在 后 续 章 节 进 行 ,通过 
本 例 读者 只 要 能 建立 起 对 匿名 函数 和 媒 套 函数 的 初步 印象 即 可 。 本 例 中 还 有 用 arrayfun 的 
示例 ,arrayfun 最 早出 现在 MATLAB 7. 1 版 中 ,其 功能 是 将 一 特定 函数 (用 户 指定 函数 句柄 ) 
应 用 到 一 数组 的 每 个 元 素 上 ,返回 值 是 和 输入 数组 尺寸 一 样 大 的 数组 ,返回 数组 和 输入 数组 对 
应 元 素 是 相应 的 函数 输出 。 这 里 的 数组 不 仅 包 括 数值 型 的 还 可 以 是 元 胞 (cell) 型 和 结构 
(Cstruct) 型 的 。 利 用 arrayfun, 可 以 简写 很 多 循环 的 代码 ,后 面 章 节 有 对 其 专门 的 介绍 。 类 似 
的 函数 还 有 structfun .cellfun spfun 等 。 

这 里 需要 强调 的 是 ,inline 对 象 作为 MATLAB 7. 0 之 前 构造 简短 函数 常用 的 结构 ,在 7.0 
之 后 的 版 本 中 已 经 过 时 了 ,取而代之 的 是 匿名 函数 Canonymous function) ,inline 函数 能 实现 
的 ,匿名 函数 完全 可 以 更 好 地 实现 ,并 且 调 用 效率 要 比 inline 函数 高 得 多 。 而 且 用 匿名 函数 很 
多 可 以 方便 实现 的 功能 ,用 inline 函数 却 很 难 方便 实现 。 

这 里 先 粗略 比较 一 下 MATLAB 中 各 种 函数 结构 的 调用 效率 ,说 明 选 择 好 函数 结构 的 重 
要 性 。 下 面 以 FCz)= 工 这 个 简单 的 函数 为 例 , 来 比较 内 联 (inline) 函数 匿名 (anonymous) 天 
数 .和 典 套 Cnested ) 函数 .普通 子 函数 (sub - function) 的 调用 效率 。 

【 例 2.3-3】 编写 f(z)=z 相 应 的 内 联 函 数 、 匿 名 函数 、 典 套 函 数 、 普 通 子 函数 形式 代 
码 ,并 分 别 调用 10 000 次 ,比较 各 种 函数 结构 调用 时 间 的 差异 。 

比较 的 代码 如 下 : 


function InlineSubAnonymousNestedCallDemo 
s% 各 种 类 型 函数 调用 效率 比较 
mm= 10000; 
fl = inline(x);g% f(x) =x 的 inline 形 式 
f2=@(x) xig% f(x) =x 的 anonymous function 形 式 
function f3 = f3(x) % f(x) = x 的 nested function 形 式 
fE3= xy 


end 
%s# inline 的 调用 效率 
tic 
for k= 1:n 
f1(1)3 
end 
time= tocy 
disp([ f(x) = x 的 inline 形式 调用 ',num2strCn) ,次 时 间 是 :num2str(tine)* 秒 ! 了]) 
#%_ anonymous function 的 调用 效率 


time = toci 
disp([' f(x) = x 的 anonymous function 形式 调用 ',nun2str(n) ,次 时 间 是 :，.. 
num2str(time) , 秒 ! 门 ) 











$ 负 nested function 的 调用 效率 

tic 

fork=1l:n 
f3(1)3 

end 

time = tocy 

disp([ f(x) = x 的 nested function 形式 调用 ',num2str(n) ,次 时 间 是 :，. . . 
num2str(tinme) , 秒 ! 门 ) 

%% sub - function 的 调用 效率 

tic 

for kx=1:n 
fE4(1)5 

end 

time = toci 

disp([' f(x) =x 的 sub - function 形式 调用 ',num2strCn),' 次 时 间 是 :…，. .. 
num2str(tine), 秒 ! 站 7 

end 


function f4 = f4(x) 多 EC(x) =x 的 sub-function 形 式 
4 = xi 
end 


运行 结果 如 下 : 


f(x) = x 的 inline 形式 调用 10000 次 时 间 是 :1.1487 秒 ! 

f(x) = x 的 anonymous function 形式 调用 10000 次 时 间 是 :0.0060664 秒 ! 
f(x) = x 的 nested function 形式 调用 10000 次 时 间 是 :0.0042187 秒 ! 
f(x) =x 的 sub - function 形式 调用 10000 次 时 间 是 :0.0034907 秒 ! 


由 此 可 以 看 出 ,匿名 函数 、 套 函数 和 普通 子 函 数 的 调用 效率 基本 上 相差 不 太 大 ,而 内 联 
函数 的 调用 效率 是 上 述 几 种 函数 类 型 调用 效率 的 几 百 分 之 一 ! 

因此 在 使 用 高 版 本 MATLAB 编程 的 过 程 中 ,要 坚决 握 弃 inline 这 种 过 时 的 函数 结构 ,而 
要 根据 需要 选用 匿名 函数 或 者 嵌 套 函数 以 及 子 函 数 。 一 般 说 来 ,简短 的 数学 表达 式 函 数 或 者 
可 以 写成 一 行 代码 的 函数 可 以 选用 匿名 函数 来 实现 ;而 复杂 的 ,内 部 要 做 较 多 事情 的 函数 可 以 
选用 子 函 数 和 赃 套 函数 来 实现 ;其 中 在 变量 共享 以 及 传递 方面 , 嵌 套 函数 具有 较 大 的 优势 ,万 
其 是 用 子 函 数 实现 并 且 用 到 全 局 变量 的 场合 ,用 和 嵌 套 函数 可 以 避免 用 全 局 变量 ,并 且 实 现 起 来 
方便 容易 。 后 续 专 门 讨论 典 套 函数 的 章节 会 详细 介绍 嵌 套 函数 的 用 法 。 


2.3.3 选用 恰当 的 数据 类 型 


在 2.3.2 节 讨 论 了 不 同 的 函数 结构 实现 相同 功能 之 间 的 效率 差异 。MATLAB 同样 有 多 
种 数据 类 型 ,不 同 的 数据 类 型 在 存储 和 访问 效率 上 也 不 尽 相同 ,选用 恰当 的 数据 类 型 对 写 出 高 
效 的 MATLAB 代码 同样 具有 重要 的 意义 。 下 面 就 最 常用 的 三 种 数据 类 型 :double 型 数组 、 
cell 数组 ,struct 数组 ,讨论 其 访问 效率 。 看 下 面 的 例子 : 

【 例 2.3-4】 比较 double 型 数组 ,cell 数组 和 struct 数组 的 访问 效率 。 
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function VisitSpeedOfDifferentDataTYpes 
mn=30000; 

a=8; 

bf1}=8; 


ticy 
for k= 1:n 
已 3 
end 
time = toci 
disp([ 访 问 ',num2str(n) ,次 double 型 数组 时 间 是 :"…,num2str(tine) , 秒 ! ]) 
第 第 


time = toci 
disp([ 访 问 ',,num2str(n) ,次 cell 型 数组 时 间 是 :,nun2str(tine), 秒 ! 了 ) 
第 负 
tici 
fork= IT:n 
C.datat 
end 
time = toc 
disp([ 访问 ,num2str(n) ,次 结构 数组 时 间 是 :num2str(tine), 秒 ! ]) 


运行 结果 如 下 : 


访问 30000 次 double 型 数组 时 间 是 :0.00010113 秒 ! 
访问 30000 次 cell 型 数组 时 间 是 :0.0069649 秒 ! 
访问 30000 次 结构 数组 时 间 是 :0.00011091 秒 ! 


由 此 可 以 看 出 ,就 访问 效率 来 说 ,double 型 数组 和 struct 数组 的 访问 效率 相当 ,大 约 都 是 
cell 型 数组 的 70 倍 。 
就 在 内 存 中 存储 来 说 ,即使 空 的 cell 型 数组 ,每 个 cell 单元 也 要 占用 4B 的 内 存 空间 。 这 
是 因为 ,cell 型 的 数组 不 需要 连续 内 存 空 间 来 存储 ,因此 ,每 个 cell 单元 需要 记录 其 在 内 存 中 
位 置 等 一 些 信息 ,每 个 cell 单元 无 论 空 与 否 , 都 在 内 存 中 占有 固定 的 4 B 用 来 存储 这 些 信 息 。 
而 一 个 1* 1 的 struct 数组 ,每 一 个 域 无 论 空 与 否 ,都 会 占用 124 B 的 内 存 空 间 。 

综合 占用 内 存 大 小 ,以 及 访问 效率 等 因素 ,在 设计 程序 时 应 尽量 采用 double 型 数组 。 
选择 好 数据 类 型 后 ,我 们 还 要 注意 高 效 的 访问 方法 。 就 double 型 数组 来 说 ,由 于 MAT- 
LAB 是 按 列 顺序 存储 数据 的 ,因此 按 列 访问 .遍历 数值 数组 要 比 按 行 访 问 、. 遍 历 快 。 看 下 面 的 
例子 : 


function ColLoopVsRowLoop 
n=3000; 

-已 =Trand(Cn); 
ticy 
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for 这 =1:n 
for jj = 1:n 
a(ii,jj); 
end 
end 
toc 


tici 
for 订 = 1:n 
for j 订 = 1:n 
a(jjyiiy 
end 
end 
toc 


运行 结果 如 下 : 


Elapsed time is 0.-136464 seconds. 
Elapsed time is 0.069589 seconds. 


可 见 按 列 遍 历 比 按 行 快 一 倍 左右 。 
2.3.4 减少 无 谓 损 耗 一 一 给 一 些 函 数 “ 瘦 身 ” 


编程 者 要 清楚 ,在 MATLAB 程序 完成 一 个 特定 任务 时 ,哪些 是 完成 这 个 特定 任务 必须 执 
行 的 代码 ,哪些 是 不 必须 的 。 举 例 来 说 ,MATLAB 自身 以 及 工具 箱 里 的 很 多 函数 具有 较 广 的 
通用 性 ,所 谓 通用 性 是 添加 必要 的 代码 能 顾及 到 一 个 个 具体 的 情形 ,这 样 对 于 每 个 具体 的 情 
形 ,代码 实际 上 都 有 完 余 。 如 果 我 们 的 程序 某 些 部 分 对 通用 性 要 求 不 高 ,那么 在 优化 程序 时 要 
考虑 将 不 必要 的 代码 去 掉 , 这 样 的 结果 就 是 重 写 一 些 简单 的 函数 ,轻装 上 阵 ,举例 如 下 ， 

【 例 2.3 - 5】 median 函数 的 “瘦身 ”。 

有 兴趣 的 读者 可 以 在 命令 窗口 中 运行 “edit median? 或 者 “type median” 看 一 看 MATLAB 
自 带 的 “median” 函 数 的 源 代码 。 

读者 会 发 现 ，median” 函 数 源 代码 比较 长 ,而 且 为 了 保证 函数 具有 较 广 的 通用 性 , 源 代码 
里 各 种 分 支 判断 和 类 型 判断 较 多 。 这 对 于 特定 的 某 个 求 中 位 数 的 函数 来 说 ,可 能 很 多 代码 都 
是 不 必要 执行 的 ,因为 求 中 位 数 ,最 核心 的 是 排序 程序 段 ,而 且 求 中 位 数 也 不 难 自己 实现 ,因此 
针对 特定 问题 我 们 可 以 自己 写 “ 瘦 身 的 median 函数 ”代码 。 璧 如 程序 中 可 能 会 频繁 求 一 个 维 
数 为 1 000 左右 的 向 量 的 中 位 数 ,可 以 写 如 下 的 函数 : 


Eunction b = mymedian(a) 

= SOrt(a); 

n= length(a); 

half = floor(n/2);% 若 非 整数 则 向 下 取 整 ,整数 维持 不 变 

b=a(half+1); 

if halfx2==ng 若 na 为 偶数 ,b 等 于 排 好 序 的 中 间 两 个 数 平均 值 人 
” ，b=(b+a(half))/23 了 全 的 人 9 芝 
end 人 
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做 如 下 测试 ,测试 和 运行 结果 如 下 : 


>> clear 
a= Irand(1000,1); 
ticifor k=1:10000ic=median(a) ienditoc 
ticffor k=1:10000id= mymedian(a) ienditoc 
Elapsed time is 0.859531 seconds. 
Elapsed time is 0.690383 seconds. 
>> isequal(c,d) 
ans = 
1 


可 见 “ 瘦 身后 的 mymedian 函数 运行 速度 提高 了 20% 左 右 。 这 是 因为 “瘦身 ”后 的 mymedian 
函数 考虑 的 情况 及 其 分 支 较 median 函数 少 。 需 要 说 明 的 是 , 当 a 的 长 度 很 大 时 ,执行 分 支 判断 
语句 的 时 间 远 小 于 排序 本 身 的 时 间 ,median 和 mymedian 的 时 间 差 距 不 会 太 明 显 。 但 是 当 a 的 长 
度 较 小 时 ,执行 排序 的 时 间 小 于 执行 额外 语句 的 时 间 时 ,这 种 差距 就 明显 了 。 同 样 上 述 代 码 ,不 
同 的 是 a 的 长 度 是 100 了 ,两 个 函数 运行 时 间 差 距 就 大 了 ,测试 和 运行 结果 如 下 : 


>> as= rand(100,1); 
ticifor k= 1:10000ic= median(a)jenditoc 
ticrfor k=1:10000;d= mymedian(a)ienditoc 
Elapsed time is 0.228408 seconds. 
Elapsed time is 0.060108 seconds. 
>> isequal(c,d) 
ans= 
工 


这 时 候 瘦 身 的 函数 所 用 时 间 仅 为 原始 median 的 1/4 多 点 。 
本 例 的 启示 是 在 通用 性 要 求 不 高 的 场合 ,可 以 根据 我 们 的 需要 来 给 MATLAB 函数 瘦身 ， 
当然 要 权衡 瘦身 的 难 易 程度 和 获得 的 效率 提升 程度 。 


2.3.5 变 “ 勤 拿 少 取 " 为 " 少 拿 多 取 ” 


通过 前 面 章 节 的 介绍 ,我 们 可 以 了 解 如 下 事实 : 

在 MATLAB 中 ,函数 调用 都 要 有 一 定 的 开销 ,这 种 开销 一 般 是 built - in( 像 sin,cos， 
zerosyonesyfind,all,any 等 ,但 凡 在 命令 窗口 运行 “type 文件 名 ”,MATLAB 会 显示 “XXX is a 
built -in function. "这样 的 函数 ) 为 最 低 , 其 次 是 一 般 的 M 文 件 , 即 工具 箱 里 能 看 到 源 代 码 的 
那些 M 函数 以 及 用 户 自己 写 的 M 文件 . 子 函 数 .nested function、 匿 名 函数 等 。 上 面 这 些 函 数 
类 型 总 的 来 说 调用 开销 都 比较 小 ,而 调用 开销 最 大 的 是 inline 函数 类 型 (在 高 版 本 的 MAT- 
LAB 中 应 当 据 弃 inline 这 种 落后 的 函数 类 型 ) 。 函 数 调用 开销 相对 于 一 些 简单 的 计算 来 说 ， 
往往 是 相当 可 观 的 ,即使 是 使 用 built -in 函数 类 型 。 

另外 我 们 还 注意 到 为 了 使 得 函数 具有 通用 性 ,很 多 函数 刚 开始 都 会 有 一 些 判断 ` 准 备 工 
作 , 往 往 判 断 好 几 层 才 到 了 真正 算法 实现 部 分 。 在 2. 3.4 节 , 讨 论 了 “函数 瘦身 ”所 带 来 的 运行 
速度 上 的 提升 。 可 是 MATLAB 作为 方便 易 用 的 科学 计算 语言 ,其 优势 之 一 就 是 集中 了 大 量 
现成 的 功能 强大 的 函数 ,如 果 所 用 MATLAB 自 带 函 数 的 核心 算法 实现 较 复杂 ,那么 为 “函数 
瘦身 ”就 可 能 得 不 偿 失 了 。 这 时 候 为 了 尽 可 能 多 地 降低 函数 调用 而 产生 的 无 谓 的 损耗 ,就 要 想 
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尽 办 法 把 需要 多 次 函数 调用 才能 完成 的 工作 用 较 少 次 数 的 函数 调用 来 完成 。 我 们 形象 地 称 之 
为 : 变 “ 勤 拿 少 取 ? 为 “ 少 拿 多 取 ”。 下 面 以 一 个 例子 来 说 明 : 

【 例 2.3-6】 数组 4 是 一 个 7X1000000 的 抢 阵 ,每 行 的 形式 类 似 下 面 所 示 : 

4=[100 2 6 9%6 8 7 20; 

15 69 7 6 4 20 11) 

21 101 45 48 6 5 4; 

.]; 

六 是 一 维 数组 [4 6 8]; 

试 找 出 数组 4 中 的 每 一 行 与 数组 的 交集 ,并 将 如 中 的 交集 元 素 置 零 ,并 将 置 零 后 的 了 存 
到 如 中 。 有 下 的 形式 为 [4 0 0;0 0 8 0 0 8;…]。 

本 例如 果 按 照常 规 思 路 做 的 话 , 可 能 会 想到 下 面 的 办 法 : 


function example2_3_6slow 
RAR= unidrnd(100,1000000,7);#% 随机 生成 1000000* 7 的 Ra 矩阵 ,的 元 素 属 于 1 到 100 的 整数 
B= zeros(1000000,3); 
form= 1:1000000 
a=Rm,:); 
b=[468]; 
for ii=1:3 
dd=a(a==b(ii)); sddsa 中 等 于 b(ii) 的 元 素 
庄 isempty(dd) == 0 % dd 不 为 空 
b(ii) =0; 
村 
end 
B(my:) = bi 
end 


仔细 分 析 上 面 的 代码 会 发 现 , 需 要 遍历 4 的 每 一 行 ,判断 4 的 每 一 行 是 否 有 元 素 等 于 
的 某 个 元 素 , 如 果 有 的 话 , 就 把 相应 的 也 的 这 个 元 素 置 为 0。 这样 对 本 例 来 说 , 光 isempty 就 调 
用 了 300 万 次 ,可 以 想象 ,效率 比较 低 。 如 果 采 用 ”人 少 拿 多 取 ” 的 思想 ,可 以 做 如 下 改进 ; 


function example2_ 3 _6fast1l 

clear 

R= unidrnd(100,1000000,7);s% 这 里 先 假设 是 一 个 随机 和 拢 阵 

B= repmat([4,6,8],1000000,1)， 

ticiC = [any(ismember(R,4) ,2) any(ismember(R,6),2) any(ismember(R,8),2)]; 
BCC) =03 

toc 


或 者 改进 如 下 : 


function example2_3_6fast2 

clear 

R= unidrnd(100,1000000,7)3 

B= repmat([4,6,8],1000000,1)， 

ticiC = [any(AR==4,2) any(AR== 6,2) any(RMR==8,2)]; 
BCC) =0; 

toc 
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上 述 两 个 程序 的 共同 之 处 在 于 :一 次 处 理 很 多 数据 。 这 样 , 原 本 要 调用 300 万 次 的 “比较 ” 
操作 ,现在 只 调用 三 次 ,只 不 过 每 次 需 处 理 整个 4 抑 阵 。 然 后 结合 any 函数 给 出 最 后 要 被 置 
零 的 逻辑 索引 。 

上 面 代 码 不 难看 懂 ,关键 是 上 面 叙述 的 编程 理念 。 


2.3.6 循环 注意 事项 


很 多 人 编写 循环 时 ,往往 忽略 很 重要 的 事实 , 那 就 是 同样 循环 层 数 、 次 数 ,不同 的 写法 可 能 
造成 速度 巨大 的 差异 。 编 写 循 环 时 应 该 遵循 两 个 重要 的 原则 : 
1) 按 列 优先 循环 (因为 MATLAB 按 列 循序 存储 矩阵 ); 
2) 循环 次 数 多 的 变量 安排 在 内 层 。 
我 们 以 具体 例子 来 说 明 上 述 原则 的 重要 性 。 请 看 示例 : 
【 例 2.3 -7】 对 于 nXn 的 矩阵 4, 生 成 一 个 矩阵 马 , 使 得 其 元 素 满足 下 列 关 系 式 : 
BG 力 一 ( > AD)/9，2 委 i 委 xz 一 1， 2 委 j) 委 2 一 1 


庆 大 十 1 
1 天 发放 1 
对 于 本 例 , 可 以 用 多 种 方法 来 求解 。 由 于 现在 是 在 讨论 循环 注意 事项 ,因此 用 循环 的 方法 
来 处 理 , 而 且 是 用 四 重 循环 。 值 得 注意 的 是 ,用 这 么 多 层 循环 ,在 老 版 本 时 代 , 历 来 是 被 强烈 反 
对 的 。 我 们 看 看 在 MATLAB R2009a 平台 下 ,不同 的 写法 效率 能 有 多 大 差距 。 读 者 可 以 用 二 
重 循环 或 者 想 尽 办 法 避免 循环 试 一 试 ,并 和 效率 高 的 四 重 循环 做 个 对 比 ( 当 然 平台 是 MAT- 
LAB R2009a) 。 下 面 以 一 个 512X512 的 随机 和 矩阵 4 为 例 来 说 明 。 


先 看 方法 一 : 


function Y= ForLooPComparel(x) 
Y(512,512) = 0; 
tici 
for ii=2:511 
for j=2:511 
for kl = 一 1:1 
for k2= 一 1:1 
Y(i,j) = Y(i',jj +x(Gi+kl'j+k2)/9; 
end 
end 
end 
end 
toc 


本 方法 将 循环 次 数 少 的 放 到 了 内 循环 ,外 循环 依次 是 ij, 并 且 是 按 行 优先 循环 。 
再 看 第 二 种 方法 : 


function yY= ForLooPCompare2(x) 
512,512) = 0; 
tici 
for j= 2:511 
for 1i= 2:511 
”forJ2= -1:1 
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本 方法 网 交 村 次 煞 户 风 关 到 了 内 循环 ,不 加 的 是 处 优先 。 
第 三 种 方法 : 





本 方法 将 循环 次 数 少 的 放 到 了 外 循环 ,内 外 循环 都 是 按 行 优先 循环 。 
第 四 种 方法 : 
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恋 方 法 不 公 将 循环 次 数 作 的 放 到 了 外 循环 ， 而 且 人 信和 下 已 
是 这 四 种 方法 运行 效率 对 比 : 纺 
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Y4 = ForLooPCompare4(x); 

Elapsed time is 0.330648 seconds. 
Elapsed time is 0.281970 seconds. 
Elapsed time is 0.322625 seconds . 
Elapsed time is 0.057423 seconds. 


由 此 可 见 , 同 时 遵循 “ 按 列 优先 循环 ”"“ 循 环 次 数 多 的 变量 安排 在 内 层 ” 两 个 原则 的 方法 耗 
时 最 少 。 


2.3.7 逻辑 索引 和 逻辑 运算 的 应 用 


我 们 知道 ,MATLAB 的 矩阵 元 素 索引 有 两 类 :一 类 是 数值 索引 , 另 一 类 是 逻辑 索引 。 前 
者 又 可 分 为 线性 索引 (linear index) 和 下 标 索 引 (subscripts) 。 就 运行 效率 来 说 ,逻辑 索引 要 高 
于 数值 索引 ,所 以 访问 矩阵 元 素 能 用 逻辑 索引 的 就 用 逻辑 索引 。 

这 里 需要 强调 的 是 find 函数 返回 的 是 数值 索引 ,因此 ,如 果 不 需 要 对 返回 的 索引 值 做 进一步 
的 操作 ,只 是 单纯 寻找 满足 条 件 的 一 些 元 素 的 话 ,find 函数 完全 可 以 不 用 。 看 下 面 的 例子 : 

【 例 2.3-8】〗 随机 生成 一 个 1000X1000 的 矩阵 4,4 的 元 素 服从 [0,1] 区 间 均 匀 分 布 , 并 
找 出 (0. 3,0.7) 区 间 的 所 有 元 素 。 

请 看 用 数值 索引 和 逮 辑 索引 的 运行 效率 对 比 : 


R=rand(1000)3 

ticiB= Rfind(RA>0.3&R<0.7))itoc 
ticiC= RCR>0.3&R<0.7))itoc 
Elapsed time is 0.056147 seconds. 
Elapsed time is 0.047591 seconds . 


关于 逮 辑 运算 ,MATLAB 提供 了 一 系列 内 置 的 逻辑 运算 函数 ,这 些 函 数 运行 效率 往往 比 
较 高 ,可 以 根据 需要 进行 选用 。 这 些 函 数 通过 各 自 函 数 帮助 文档 页 面 下 面 的 see also 选项 里 
列 出 的 函数 彼此 连接 起 来 ,这 样 可 以 减少 使 用 时 候 的 记忆 负担 。 璧 如 我 们 运行 doc any, 帮 助 
文档 里 除了 列 出 any 函数 的 使 用 说 明 外 ,在 下 面 的 see also 选项 里 还 列 出 和 any 一 类 的 其 他 
函数 ,这 些 函 数 的 帮助 文档 下 面 又 列 出 和 自身 关系 密切 的 其 他 函数 。 

此 外 ,在 命令 窗口 中 运行 “doc is” 可 以 列 出 一 系列 有 关 判 断 的 多 辑 函 数 。 这 些 函 数 的 说 
明文 档 都 比较 容易 明白 ,由 于 篇 幅 关 系 , 这 里 对 每 个 函数 的 功能 就 不 做 介绍 了 ,读者 可 以 看 看 
这 些 函数 的 帮助 文档 。 


2.4 应 用 高 版 本 向 量化 蔓 数 提高 开发 效率 


从 MATLAB 7.0 开始 ,陆续 增加 了 一 些 向 量化 函数 ,使 用 这 些 函 数 可 以 减少 很 多 循环 的 
使 用 ,在 保证 代码 运行 效率 的 前 提 下 ,使 代码 更 加 简洁 。 需 要 说 明 的 是 ,很 多 情况 下 ,使 用 这 些 
函数 其 运行 效率 并 不 比 恰当 使 用 循环 快 多 少 ,使 用 它们 主要 是 为 了 提高 开发 效率 ,使 代码 更 加 
简洁 。 下 面 逐 一 介绍 这 些 函 数 。 


2.4.1 accumarray 函数 
accumarray 函数 最 早出 现 于 7.0 版 (R14) ,在 随后 的 7.1 (R14SP3)，7. 2 (R2006a) 版 里 
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又 对 其 功能 进行 了 增强 。 
常用 的 accumarray 函数 的 调用 格式 有 以 下 几 种 ， 


及 = accumarray(subsyval) 

及 = accumarray(subsyvalysz) 

及 = accumarray(subs,val,sz,fun) 

有 = accumarray(subs,val,sz,fun,fillval) 

六 = accumarray(subs,val,szyfun,fillval,issparse) 


下 面 以 accumarray 本 数 最 全 的 参数 调用 格式 AR = accumarray ( Subs, val,，sz, fun， 
fillval,issparse) 为 例 , 说 明 一 下 accumarray 因 数 最 常用 的 使 用 方法 。 

给 定 一 组 索引 值 subs, 一 般 要 求 其 是 n 行 mm 列 的 正 整数 矩阵 ，val 是 一 长 度 为 n 的 数组 
( 行 数组 或 者 列 数组 ) ,subs 的 每 一 行 表示 一 个 索引 值 , 与 val 相应 的 元 素 对 应 。accumarray 函 
数 的 功能 是 将 索引 值 相同 的 val 分 别 分 组 ,然后 用 事先 指定 的 函数 fun 作用 于 每 一 组 ,输出 的 
结果 是 一 个 矩阵 4, 矩阵 4 的 维 数 等 于 subs 的 列 数 ， 

如 果 4 的 某 个 元 素 对 应 的 索引 值 ( 即 和 通过 该 索引 值 可 以 访问 该 元 素 ,譬如 4=[0.2 
一 557 8], 对 于 一 5 来 说 ,其 索引 值 就 是 [1 ,2] ,表示 第 一 行 第 二 列 ,4(1,2) 可 以 访问 到 一 5 不 
曾 在 subs 里 出 现 过 ,那么 4 的 这 个 元 素 只 能 是 0( 默 认 ) ,或 者 是 我 们 事先 指定 的 fillval。 如 果 
出 现 过 , 则 4 的 这 个 元 素 是 相应 的 fun 作用 的 val 中 对 应 元 素 的 值 。 我 们 可 以 为 4 重新 指定 
斥 二 :sz, 只 是 sz 的 每 个 分 量 都 不 小 于 对 应 的 subs 列 中 最 大 的 值 。issparse 参数 是 来 说 明 是 
否 以 稀 朴 矩阵 的 形式 输出 4。 

accumarray 函数 用 法 比较 抽象 ,很 多 读者 包括 一 些 熟练 使 用 MATLAB 的 朋友 即使 看 了 
英文 帮助 文档 ,还 是 对 其 用 法 不 甚 明白 。 所 以 看 完 上 述 解 释 后 如 果 还 是 一 头 雾 水 ,那么 不 要 
紧 , 可 以 结合 下 面 的 例子 来 看 。 

下 面 看 几 个 关于 accumarray 函数 的 例子 ， 

【 例 2.4- 1 生成 一 个 100 000X1 的 4, 其 元 素 服从 [1,200 000] 之 间 离 散 均匀 分 布 , 找 
出 都 有 哪些 元 素 出 现 了 。 

先 用 下 列 语 句 生成 a; 


a=unidrnd(200000,100000,1); 


下 面 有 几 种 办 法 找到 a 中 都 有 哪些 元 素 出 现 了 。 如 下 (环境 :MATLAB R2009a 十 Windows 
XP sp2) : 
方法 1; 


ticib= union(aya)itoc; 
Elapsed time is 0.033577 seconds. 


方法 2: 


ticic= unique(a)itoci 
Elapsed time is 0.015064 seconds. 
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方法 3: 


ticyd= accumarray(ay1,[200000,1])je= find(d)itoc 
Elapsed time is 0.009958 seconds. 


由 于 MATLAB 第 一 次 运行 函数 会 有 编译 等 额 外 工作 ,因此 第 一 次 运行 较 慢 , 上 述 运行 时 间 
都 是 取 的 第 三 次 运行 的 时 间 。 可 以 看 出 使 用 accumarray 函数 的 方法 3, 不 仅 得 到 了 哪些 元 素 出 
现 了 ( 即 向 量 e) ,同时 还 给 出 了 每 个 出 现 的 元 素 出 现 的 次 数 一 一 向 量 d, 所 用 时 间 也 是 最 少 的 。 

【 例 2.4-2】 在 1000X1000 的 正方 形 区 域内 随机 生成 100 000 个 点 (坐标 值 是 整数 ) , 统 
计 每 个 坐标 点 上 生成 的 点 的 个 数 。 

在 这 个 例子 下 , 像 例 2.4- 1 一样 简单 应 用 union 和 unique 就 不 行 了 。 通 常 考 虑 用 循环 : 





cleari 

p= unidrnd(1000,100000,2); 

tici ff 

RARC1000,1000) = 0; 

for k=1:100000 

RCpP(k,1),p(k,2)) = ARCP(k,1),pCk,2))+15 
end 

toc 

Elapsed time is 0.020455 seconds . 


而 用 accumarray 函数 可 以 这 样 , 


ticia= accumarray(p,1,[1000,1000])itoc 
Elapsed time is 0.017606 seconds. 
isequal(R,a) 


ans= 
1 


可 见 , 用 accumarray 函数 , 仅 需 一 句 代 码 , 既 简洁 又 高 效 。 

【 例 2.4-3】〗 1000 人 ,身高 分 布 在 170 一 180 cm, 体重 在 110 一 200 斤 ,年龄 分 布 在 
20 一 50 岁 ,计算 身高 体重 都 相等 的 人 的 年 龄 平均 值 。 结 果 用 矩阵 来 表示 : 行 数 表示 身高 , 列 数 
表示 体重 ,矩阵 元 素 表 示 年 龄 的 平均 值 。 

首先 ,生成 数据 : 


rand(' state',0) 

height = unidrnd(10,1000,1) + 170; g 身高 的 数据 
rand(' state',0) 

weight = unidrnd(90,1000,1) + 110;% 体重 数据 . 
rand(' state ,0) 

old= unidrnd(30,1000,1) + 20; 


利用 accumarray 函数 计算 的 语句 如 下 ; 


ticjmo = accumarray([height,weight],old,[],@mean)itoc 
Elapsed time is 0.002271 seconds . 























这 个 矩阵 比较 稀疏 ,因此 也 可 以 用 稀疏 矩阵 来 表示 结果 ， 


ticimo = accumarray([height,weight],old, 门 ,@mean,0,true)itoc 
Elapsed time is 0. 002072 seconds. 


维 数 大 时 , 稀 朴 矩阵 会 有 优势 ,当然 这 个 例子 还 不 明显 。 读者 有 兴趣 可 以 试 试 传统 方法 的 效果 。 
以 上 仅 举 了 三 个 例子 ,实际 上 ,accumaary 函数 的 应 用 方法 非常 灵活 ,尤其 在 对 于 很 多 要 操作 
大 矩阵 的 情况 下 。 建 议 读 者 可 以 仔细 研究 下 accumarray 函数 的 用 法 ,并 在 实际 当中 注意 应 用 。 


2.4.2 arrayfun 函数 


相信 很 多 读者 都 有 这 样 的 体会 ,看 循环 代码 的 时 候 比较 累 人 ,尤其 是 多 重典 套 循环 。 很 多 时 
候 我 们 编写 的 函数 的 输入 变 量 是 标量 ,而 又 要 对 很 多 组 参数 进行 函数 调用 ,而 函数 是 很 难 或 者 不 
支持 向 量化 的 ,这 在 MATLAB7 以 前 的 版 本 中 我 们 只 能 通过 老 老实 实 通过 循环 来 实现 。 虽 说 高 
版 本 下 恰当 使 用 MATLAB 的 循环 ,效率 已 不 是 大 的 瓶颈 ,但 如 果 有 效率 和 循环 相当 或 者 更 好 ， 
并 且 很 简洁 的 其 他 方式 ,想必 绝 大 多 数 读者 是 不 会 拒绝 的 。 arrayfun 函数 和 后 面 小 节 的 cellfun， 
spfunystructfun 等 函数 就 是 这 样 的 一 类 函数 。 本 小 节 先 讨论 arrayfun 函数 的 用 法 。 

arrayfun 这 个 built - in 函数 实现 的 是 将 指定 的 函数 应 用 到 给 定数 组 包括 结构 数组 在 内 
的 所 有 元 素 。 这 样 很 多 以 前 不 可 避免 的 循环 现在 可 以 向 量化 了 。 看 下 面 的 几 个 例子 : 

【 例 2.4-4】 生成 一 个 这 样 的 nXn 和 矩阵 asa(i,j) 一 dblquadCQ@(uy,v) sinCu) *x sqrt(Cv) ， 
0,i,0,j) ,以 n 一 10 为 例 。 

这 个 问题 放 在 MATLAB 7 以 前 ,我 们 可 能 这 样 做 ; 


aa= zeros(10); 
for ii=1:10 
for jj= 1:10 
#% 求 sin(u) * sqrt(v) 的 二 重 积分 
a( 这 ,jj) = dblquad(@(uvv) sin(u) x sqrt(v),0yiiy0,jj); 
二 
end 


现在 只 需 这 样 ; 


[, 匡 = neshgrid(1:10); 
al = arrayfun(@(ii,jj) dblquad(@(uyv) sin(u) * sqrt(v) ,0,iiyv0,jj),I,J); 


【 例 2. 4 - 5〗 验证 角 谷 狂想 ,一 个 正 整 数 w, 如 果 是 偶数 除 以 2, 如 果 是 奇数 乘 以 3 加 1， 
得 到 的 新 数 继续 按 上 述 规则 运算 ,最 后 结果 都 为 1。 验证 1 一 100 000 内 的 正 整 数 。 先 编写 单 
个 数 的 验证 函数 : 


function f = SizuoKakutani Cn) 
证 n<11|modCn,1) 一 =0 
.errord1g(Cn 必须 是 正 整数 ) 
王 = ni 
Teturn 
while n>1 


和 2 二 了 4 认 六 和 至 人生 AAA 有 记 
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if mod(ny,2) ==1 
mn=nxk3+15 

elseif mod(n,2) ==0 
mn=n/2 

end 


f=n? 


复制 代码 验证 1:100000， 以 前 我 们 可 能 这 样 做 : 


aa= zeros(1,100000); 
fork=1:100000 

Ba(k) = SizuoKakutani(k); 
end 

all(a) 


现在 只 需 这 样 : 


all(arrayfun(@@SizuoKkakutani,1:100000)) 


可 见 ,arrayfun 函数 可 以 使 代码 简化 很 多 。 举 这 两 个 例子 目的 是 为 了 说 明 很 多 以 前 不 能 
简写 的 很 多 循环 的 程序 利用 这 个 函数 可 以 在 保证 效率 的 前 提 下 简化 代码 。 关 于 arrayfun 郴 
数 其 他 使 用 方法 ,有 兴趣 的 读者 可 以 运行 doc arrayfun ,看 其 帮助 文档 加 以 了 解 。 


2.4.3 bsxfun 函数 


以 前 , 当 我 们 想 对 一 个 矩阵 4 的 每 一 列 或 者 每 一 行 与 同一 个 向 量 a 进行 某 些 操作 (比较 
大 小 ,乘除 等 ) 时 ,只 能 用 循环 方法 或 者 利用 repmat 函数 将 要 操作 的 向 量 a 复制 成 和 4 一 样 尺 
才 的 矩阵 ,进而 进行 操作 。 从 MATLAB R2007a 版 本 开始 ,再 遇 到 类 似 的 问题 时 ,有 了 简洁 高 
效 的 方法 , 即 利 用 bsxfun 函数 。 

为 了 节省 篇 幅 ,bsxfun 的 调用 格式 就 不 列 在 这 里 了 ,读者 可 以 参考 帮助 文档 ,下 面 给 出 两 
个 bsxfun 的 例子 ,读者 可 以 仔细 揣摩 ,相信 会 从 中 得 到 使 用 bsxfun 的 很 多 启发 。 

【 例 2.4-6】 有 如 下 矩阵 : 








3 3 8 3 
向 量 为 b=[1 2 3 了 ,请 找 出 居 在 4 矩阵 列 中 的 位 置 loc 一 [1,4] 。 

下 面 给 出 五 种 方法 ,这 五 种 方法 每 种 方法 都 只 有 一 句 话 ,包括 bsxfun 的 使 用 和 前 面 
arrayfun 函 数 的 使 用 。 读 者 可 以 仔细 体会 其 用 法 ,相信 会 受益 罪 浅 。 

方法 1: 


loc = find(all(bsxfun(@eq,ab)) #% 把 帮 的 每 一 列 和 b 用 ==(@eq) 来 判断 , 找 出 全 1 的 列 
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方法 2: 


loc= find(arrayfun(@(n) all(R(:,n) ==b),1:4)) % 用 arrayfun 对 nm 进行 1;4 的 遍历 


方法 3: 
loc= find(all( 一 bsxfun(@minus,h,b))) #% 把 有 的 每 一 列 和 b 来 相 减 C@minus), 求 反 后 找 出 全 1 的 列 


方法 4: 


loc = find(arrayfun(@ Cn) isequal (RC:,n),b) ,1:4)) % 用 arrayfun 对 了 进行 1:4 的 遍历 后 用 
isequal 函数 来 判断 R 的 每 列 和 是否 相等 


方法 5: 
loc= find(b *A== sun(b. 2)) %b 的 转 置 和 相 乘 ,然后 和 Db.”2 每 列 的 和 进行 比较 ,找到 相等 的 


上 述 几 种 方法 都 可 以 达到 目的 ,但 是 思路 各 不 相同 。 读者 可 以 用 较 大 规模 的 矩阵 比较 上 
述 各 方法 的 效率 。 

再 看 一 个 例子 ， 

【 例 2.4 -7】 如 何 将 一 个 矩阵 的 每 行 或 每 列 元 素 分 别 扩大 不 同 的 倍数 ? 如 [1 2 3;4 

5 6;7 8 9], 第 一 列 元 素 乘 以 1, 第 二 列 元 素 乘 以 2, 第 三 列 元 素 乘 以 4。 

利用 bsxfun 函数 ,可 以 给 出 下 列 代码 

a=[1,2,3;4,5,6;7,8,9]， 

acol = bsxfun(@timesya,[I 24]) 

事实 上 ,bsxfun 的 第 一 个 输入 参数 是 函数 句柄 ,其 支持 的 函数 类 型 有 多 种 ,帮助 文档 里 面 
都 列 了 出 来 ,大 家 在 使 用 的 时 候 可 以 参考 帮助 文档 。 

从 MATLAB R2009b 开始 ,bsxfun 函数 开始 更 好 地 支持 多 线程 了 , 即 不 需要 用 户 干预 ， 
其 内 部 已 经 较 之 前 的 版 本 更 好 的 支持 多 线程 了 。 更 多 的 较 之 以 前 更 好 地 支持 多 线程 的 函数 还 
有 :sort (有 其 对 于 大 和 矩阵) ,mldivide (对 于 稀 朴 矩阵 ) ，qr (对 于 稀 朴 和 矩阵) ,filter,gamma ， 


gammaln,erf,erfc,erfcx,erfinv 等 函数 。 
2.4.4 cellfun 函数 


类 似 arrayfun 函数 ,cellfun 函数 是 将 指定 的 函数 应 用 到 元 胞 数组 内 每 个 元 胞 存储 的 内 容 
上 。 看 下 面 的 简单 例子 ， 

【 例 2.4-8】 4 王 (Hello'，MATLAB' Ilove MATLAB' MATLAB is powerful ， 
“MATLAB is the language of technical computing '; 试 统计 A 中 每 个 元 胞 单元 存放 的 字符 串 
的 长 度 。 

本 例 用 cellfun 的 代码 非常 简单 ,只 一 句 话 即 可 完成 任务 。 


Jen = cellfun(@1length,A) 
len= 
5 6 13 18 45 
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【 例 2.4- 8 续 】 试 提取 A 中 每 个 元 胞 内 容 前 三 个 字符 ,并 全 部 转化 成 大 写 。 
用 cellfun 做 同样 很 简单 : 


Upp = cellfun(@(x) upper(Cx(1:3)),A,，UniformOutput "false) 
Upp = 
-ab nr， IT ar var 

这 里 要 说 明 一 点 。cellfun 和 arrayfun 函数 都 可 作用 于 一 个 cell 数组 (arrayfun 函数 还 可 
以 用 于 数值 ,结构 等 数组 ) , 那 它们 有 什么 区 别 呢 ? 在 回答 这 个 问题 前 ,我 们 先 打 个 比方 : 

cell 数组 好 比 一 栋 “ 楼 房 ", 不 同 的 行 数 好 比 不 同 的 “楼 房 " 层 数 ,每 个 cell 单元 好 比 楼 层 上 
的 “房间 ”, 而 每 个 cell 单元 里 面具 体 存 放 的 东西 好 比 是 放 在 “房间 ”里 的 东西 。 

cellfun 的 输入 函数 操作 的 是 放 在 “房间 ”里 的 东西 。 而 arrayfun 的 输入 函数 操作 的 是 具 
体 的 每 个 “房间 ”整体 。 读 者 可 以 体会 下 列 代码 的 运行 结果 。 


a= {12,34,55,66,77} 
= 
人 2 和 3 时 印 5 村 666].”2773 
>> b= cellfun(@(x) xya) > 
hb = 
也 局 3 仁 六 省 5 志 66- 二 
>> c= arrayfun(@(x) xya) 
c= 
3 [55] 26632 炬 29 了 
>> isequal(cya) 
ans= 
出 


cellfun 和 arrayfun 函数 的 指定 函数 都 相同 ,都 是 fF(z) 一 z 这 个 简单 的 函数 ,可 以 清楚 看 
出 ,cellfun 函数 把 每 个 “房间 ”里 的 数 都 取 了 出 来 ,由 于 指定 函数 是 fCz) 一 z, 所 以 没有 对 其 
进行 任何 操作 ,只 是 将 它们 放 到 一 个 和 a 行列 数 相同 的 数值 数组 0 里。 而 arrayfun 函数 则 
是 将 每 个 “房间 ”连同 里 面 的 东西 都 取 了 出 来 ,所 有 都 取 完 后 再 拼 成 一 个 整体 ,因此 < 还 是 
等 于 a。 

如 果 cellfun 函数 的 指定 函数 操作 每 个 单元 返回 的 值 无 法 用 数值 数组 来 统一 表示 ,那么 必 
须 用 cell 型 数组 来 表示 。 璧 如 当 ae 一 {1,2，abc ) 时 ,0 一 cellfun(@(x) x ,a) 这 么 写 就 会 报错 
了 ,为 什么 ? 因为 其 指定 函数 j(z) 一 工 操作 每 个 单元 返回 的 值 不 是 同一 类 型 ,无 法 用 数值 矩 
阵 统 一 表示 ,只 能 用 cell 数组 表示 。 于 是 应 该 写 为 & 一 cellfun(@(x) x ,ay UniformOutput ， 
false) ;这 时 候 和 ec 一 arrayfun(@(x) x ,a) 是 相同 的 。 


2.4.5 spfun 函数 


spfun 函数 的 使 用 方法 比较 简单 ,即将 指定 的 函数 fun 应 用 到 稀 朴 矩阵 每 个 不 为 0 的 元 
素 上 ,返回 一 个 和 wa 尺度 相同 的 , 且 具 有 稀 朴 结构 的 矩阵 。 看 下 面 的 例子 。 
【 例 2.4-9]】 演示 spfun 函数 的 简单 使 用 方法 : 


。 蕊 岂 闪闪 灿 六 下 贱 十 SVTIVIN 淹 大 机 这 沿 注 许 六 天 二 。 瑟 海 言 宁 过 入 互 妆 怀 学 党 淋 
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2. 4.6 structfun 函数 


structfun 函数 用 法 和 上 述 介绍 的 函数 类 似 ,不 过 structfun 函数 要 求 操作 的 结构 数组 是 
标量 结构 数组 ,所 谓 标量 结构 数组 是 指 在 MATLAB 工作 空间 的 “变量 value" 那 一 栏 显示 为 
1X1l struct 的 结构 数组 。 

structfun 所 接收 的 函数 将 作用 到 所 接收 的 结构 的 各 个 域 上 。 看 下 面 的 例子 ， 





宙 0 


从 上 面 的 例子 可 以 看 出 ,新 的 结构 数组 SumFields 的 域 和 strucfun 接收 的 结构 数组 。 的 
域 相同 ,每 个 域 的 内 容 是 sum 函数 作用 于 s 的 相应 域 的 内 容 的 结果 
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相信 很 多 使 用 过 MATLAB 的 读者 都 遇 到 “out of memory” 的 错误 提示 。 出 现 这 样 的 提示 
说 明 MATLAB 的 工作 空间 中 的 变量 占据 的 内 存 空间 总 和 超出 了 当前 可 用 内 存 空间 的 总 和 。 在 
不 增加 物理 内 存 条 件 下 ,该 怎么 办 ? 有 的 时 候 需 要 处 理 大 量 的 数据 ,怎么 样 才能 高 效 处 理 ? 

我 们 还 经 常 听 到 MATLAB 使 用 者 抱怨 MATLAB 的 内 存 管理 机 制 很 差 , 本 来 机 器 4 GB 
的 物理 内 存 , 可 是 最 多 只 能 开 1 GB 大 小 的 矩阵 。 怎 么 样 才能 有 效 利 用 4 GB 的 内 存 呢 ? 

类 似 的 这 些 问 题 是 这 章 的 主要 讨论 问题 。 


3.1 处 理 海 量 数据 时 明 到 的 问题 


3.1.1 什么 是 海量 数据 


海量 数据 ,顾名思义 ,数据 量 一 般 大 得 多 。 海 量 数据 一 般 是 相对 当前 计算 机 处 理 能 力 而 言 
的 ,今天 看 来 是 海量 数据 ,也 许 随 着 计算 机 硬件 能 力 的 提升 在 不 入 的 将 来 就 不 算 海 量 数据 了 。 
即使 是 同一 时 期 ,不 同 的 应 用 领域 ,不 同 的 学 科 以 及 不 同 的 硬件 条 件 下 ,海量 数据 所 呈现 的 数 
据 量 也 不 尽 相同 。 

对 于 用 户 个 人 来 说 ,凡是 在 个 人 计算 机 上 处 理 数 据 时 经 常 出 现 “out of memory"” 提 示 的 数 
据 量 ,都 可 称 之 为 海量 数据 。 


3.1.2 经 常 遇 到 的 问题 


在 有 限 的 计算 机 处 理 能 力 下 ,我 们 处 理 海 量 数据 经 常 遇 到 一 些 问题 。 这 些 问 题 根 据 表 象 
可 以 分 为 两 大 类 :一 类 是 内 存 溢 出 (out of memory) ,一 类 是 运行 极其 缓慢 。 

(1) 导致 内 存 溢出 的 主要 原因 

1) 变量 需要 的 存储 空间 超过 了 可 用 的 内 存 空间 。 这 是 最 简单 的 情况 。 原因 是 将 要 生成 
的 矩阵 太 大 ,所 需 存 储 空间 超过 了 所 有 可 用 的 内 存 总 和 。 但 是 很 多 时 候 和 矩阵 需要 的 存储 空间 
大 小 并 没有 超过 可 用 内 存 总 和 ,但 同样 有 内 存 溢出 的 错误 提示 ,其 原因 见 下 面 第 2) 条 。 

2) 数值 矩阵 所 需要 的 存储 空间 ,超过 了 内 存 中 最 大 的 可 用 连续 存储 空间 。 MATLAB 里 
默认 用 double 型 来 表示 数值 变量 ,这样 一 个 数字 就 需要 8 B 的 存储 空间 。 而 MATLAB 中 的 
数值 矩阵 存储 需要 内 存 中 连续 的 存储 空间 。 这 样 如 果 内 存 中 碎片 过 多 ,虽然 可 用 的 内 存 总 和 
较 大 ,但 是 最 大 的 连续 内 存 空间 不 大 ,这 样 当 矩阵 的 元 素 较 多 时 ,就 可 能 没有 足够 的 连续 内 存 
空间 来 存储 ,从 而 发 生 内 存 溢出 的 错误 提示 。 

譬如 a 一 rand(10000,10000); 生 成 10* 个 (0,1) 之 间 随 机 分 布 的 随机 数 ,需要 的 存储 空间 
是 8X10sB, 大 约 需要 800 MB 的 连续 内 存 空 间 。 如 果 内 存 中 最 大 的 连续 空间 都 小 于 8 久 


第 3 章 ，MATLAB 处 理 海量 数据 AfjfTun 


本 
WwW. 让 oveMafiab.cn 


10*B, 那 么 无 论 所 有 可 用 的 内 存 空 间 之 和 是 否 大 于 8X10'B,MATLAB 都 会 给 出 “out of 
memory” 错 误 提 示 的 。 

3) 程序 设计 方面 考虑 的 不 周 , 导 致 内 存 溢出 。 这 方面 的 原因 一 般 表 现 得 比较 隐藏 。 我 们 
在 设计 一 些 变量 较 多 的 复杂 程序 时 ,可 能 没有 及 时 释放 掉 一 些 不 再 会 用 到 的 变量 所 占用 的 内 
存 。 这 样 随 着 程序 的 运行 ,变量 越 来 越 多 ,内 存 中 碎片 也 越 来 越 多 ,再 要 产生 新 的 较 大 的 矩阵 ， 
就 可 能 发 生 内 存 溢出 的 问题 。 

4) 问题 求解 方法 考虑 欠 周 ,导致 内 存 溢出 。 同 样 的 问题 ,可 能 由 多 种 求解 方法 。 不 同方 
法 的 效率 以 及 所 占用 的 资源 相差 很 大 。 问 题 规模 小 的 时 候 , 不 用 考虑 这 方面 的 问题 ,可 是 问题 
规模 较 大 的 时 候 就 必须 考虑 具体 的 求解 方法 了 ,否则 就 可 能 会 由 于 内 存 溢出 而 无 法 求解 问题 。 

譬如 符号 计算 。 符 号 计算 由 于 其 语法 简单 ,并 且 和 传统 教科 书 解 决 问题 思路 一 致 等 特点 ， 
使 得 许多 初学 者 很 爱 使 用 符号 计算 。 但 是 符号 计算 由 于 精确 性 ,使 得 其 在 计算 过 程 中 要 保留 
大 量 的 中 间 结 果 , 这 样 导 致 复杂 的 计算 问题 用 符号 计算 很 容易 内 存 滋 出 ,即使 不 溢出 ,对 于 很 
多 复杂 的 计算 问题 ,符号 计算 也 无 法 给 出 解析 解 。 

还 有 当 求解 涉 及 较 大 规模 的 稀 朴 型 矩阵 的 问题 时 ,没有 采用 稀 朴 矩阵 数据 结构 也 容易 导 
致 内 存 溢出 。 

(2) 运行 极其 缓慢 的 原因 

这 是 因为 大 数据 量 的 处 理 总 是 伴随 着 大 量 的 计算 还 有 频繁 的 对 内 存 各 地 址 进行 访问 ,这 
些 开 销 往往 比较 占用 资源 。 如 果 物 理 内 存 不 够 ,系统 开始 调用 页 面 文件 来 供 程序 使 用 ,会 使 得 
程序 运行 速度 有 很 大 程度 的 下 降 。 

本 章 后 半 部 分 将 介绍 不 增加 物理 内 存 的 情况 下 ,可 供 MATLAB 高 效 利 用 内 存 的 方法 。 


3.2 有 多 设 置 增加 可 用 内 在 


随 着 计算 机 硬件 的 发 展 , 如 今 的 内 存 价格 较 之 以 前 低廉 了 很 多 ,主流 PC 包括 笔记 本 式 计 
算 机 的 内 存 配置 基本 都 不 低 于 4GB 了 ,这 已 经 达到 32 位 操作 系统 的 寻 址 极限 了 。 虽 然 64 位 
操作 系统 可 以 支持 更 大 的 内 存 , 但 由 于 诸多 因素 导致 64 位 操作 系统 完全 取代 32 位 操作 系统 
还 需要 一 段 时 间 ,在 可 预见 的 一 段 时 间 内 ,使 用 32 位 操作 系统 的 读者 还 会 很 多 ,因此 在 32 位 
操作 系统 下 如 何 有 效 利 用 内 存 是 这 节 主 要 讨论 的 内 容 。 

本 小 节 以 Windows XP 32 位 操作 系统 为 例 来 说 明 如 何 设置 boot. ini, 使 得 MATLAB 程 
序 可 以 利用 更 多 的 内 存 。 


3.2.1 系统 默认 下 内 存 分 配 情 况 


首先 需要 澄清 一 个 概念 一 一 虚拟 内 存 (virtual memory)。 有 很 多 朋友 习惯 把 硬盘 上 预 贸 
出 来 用 做 内 存 交换 和 扩展 内 存 寻 址 空间 的 “交换 文件 ”"( 也 叫 页 面 文件 Pagefile. sys) 当做 “虚拟 
内 存 ”。 因 为 它 不 是 内 存 芯 片 , 却 在 必要 的 时 候 和 物理 内 存 进 行内 存 页 交换 ,所 以 认为 是 “ 虚 
拟 ” 的 内 存 。 当 然 这 样 讲 有 一 定 道理 ,也 可 以 认为 是 人 们 通常 说 的 “虚拟 内 存 ” 代 表 的 意思 。 但 
是 有 的 时 候 ,虚拟 内 存 ? 还 代表 另 一 种 含义 。 简 单 说 来 ,这 种 含义 就 是 特定 操作 系统 下 多 路 程 
序 进程 共享 的 计算 机 物理 内 存 以 及 页 面 文件 。 

Windows 的 虚拟 内 存 系统 可 以 让 所 有 的 应 用 程序 都 运行 在 自己 独占 的 私有 所 谓 “ 虚 拟 地 
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址 空间 ?里 ,这 个 “虚拟 地 址 空间 ”对 于 应 用 程序 的 开发 者 以 及 使 用 者 来 说 ,使 用 起 来 就 像 单一 
任务 操作 系统 DOS 下 独自 访问 实际 物理 地 址 一 样 , 完 全 不 需要 考虑 内 存 的 调度 .共享 、 安 全 
等 。 而 这 些 调度 .共享 .安全 等 的 工作 , 则 完全 交 由 Windows 虚拟 内 存 系统 来 完成 。 

默认 情况 下 , Windows 可 以 对 总 计 4 GB 的 虚拟 内 存 空间 进行 寻 址 。 此 地 址 空间 中 的 2 GB 
为 内 核 (操作 系统 ) 保 留 , 另 外 2 GB 是 为 用 户 程序 保留 的 ,值得 注意 的 是 每 个 进程 都 可 以 寻 址 
这 么 多 空间 。 实 际 运行 中 ,OS( 操 作 系 统 ) 负责 把 进程 提交 的 虚拟 内 存 按 页 (一 页 4KB, 工 作 
集 ) 映 射 到 物理 内 存 的 实际 页 帧 上 ( 驻 留 集 )。 如 果 设 置 了 硬盘 上 的 交换 文件 ,那么 OS 也 会 在 
物理 内 存 和 交换 文件 之 间 交 换 内 存 页 ,一 些 不 活动 的 进程 , 它 的 虚拟 内 存 页 会 被 从 物理 内 存 中 
交换 到 硬盘 上 的 页 面 文件 中 ,等 它 活动 的 时 候 再 交换 回来 。 

有 了 上 述 讨论 ,下 面 可 以 进行 本 节 下 面 的 内 容 。 打 开 MATLAB, 在 命令 窗口 运行 如 下 命 
令 feature memstats 或 者 system_dependent memstats,( 以 上 两 个 命令 属于 MATLAB 中 未 公 
开 的 命令 , 即 可 以 运行 ,但 是 帮助 文档 中 没有 )。 我 们 可 以 得 到 当前 MATLAB 所 运行 的 内 存 
环境 的 一 些 参数 值 , 如 图 3. 1 所 示 。 
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图 3.1 未 公开 3 GB 模式 MATLAB 运行 内 存 环境 参数 


上 面 显示 的 是 Windows XP 默认 情况 下 ,也 就 是 没有 打开 3 GB 开关 情况 下 ,笔者 计算 机 
上 MATLAB 运行 的 内 存 环境 参数 。 

笔者 计算 机 的 物理 内 存 是 2 GB, 从 图 3. 1 Physical Memory 中 可 以 看 出 来 。Page File( 简 
写 为 PF) 中 In Use 数值 是 和 Windows 任务 管理 器 中 PF 使 用 率 是 一 致 的 ,也 即 “ 认 可 用 量 ” 中 
的 “总 数 ?或 者 任务 管理 器 下 面 列 的 “提交 更 改 " 左 边 数值 ;而 Total 是 和 “认可 用 量 ” 中 的 “ 限 
制 ?保持 一 致 的 ,或 者 是 “提交 更 改 " 右 边 数 值 。 

Virtual Memory 那 一 项 列 的 是 MATLAB 整个 程序 运行 的 虚拟 内 存 空间 ,可 以 看 出 ,在 
没有 打开 3 GB 开关 的 情况 下 ,MATLAB 寻 址 空间 最 多 只 有 2 GB。 
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Largest Contiguous Free Blocks 里 列 出 了 10 个 地 址 连续 的 最 大 的 虚拟 内 存 空 间 。 由 于 
MATLAB 中 数值 矩阵 的 存放 必须 要 地 址 连续 的 内 存 空 间 , 因 此 ， 目前 可 以 生成 的 最 大 矩阵 或 
者 向 量 含有 的 元 素 个 数 ( 以 默认 的 double 类 型 为 例 ) 是 1207X1024X1 024/8 一 158 203 904 
个 ,大 约 是 12 578X12 577 大 小 的 一 个 矩阵 。 虽然 这 个 矩阵 是 上 述 状 态 下 可 以 生成 的 最 大 的 
数值 矩阵 ,但 是 生成 完 这样 一 个 矩阵 后 ,MATLAB 还 可 以 再 生成 其 他 的 矩阵 ,只 不 过 再 生成 
的 矩阵 的 最 大 尺寸 取决 于 生成 完 第 一 个 矩阵 后 ,最 大 的 连续 内 存 空间 大 小 。 由 此 可 以 想象 ,如 
果 内 存 碎片 较 多 ,会 导 臻 MATLAB 能 够 处 理 的 单个 矩阵 的 最 大 尺寸 大 大 减 小 。 


3.2.2 打开 Windows 3 GB 开关 


可 以 设置 boot' int 文件 ,使 得 Windows 的 3 GB 开关 打开 ,这 样 ,MATLAB 的 寻 址 空间 
就 可 以 提高 1 GB。 

可 以 按照 下 列 步骤 打开 3 GB 开关 ， 

1) 右 击 "我 的 电脑 图标, 选择 “属性 ”命令 ,在 弹出 的 “系统 属性 ”界面 中 单 击 “ 高 级 ”选项 攻 。 

2)“ 在 启动 和 故障 恢复 一 栏 里 单 击 “ 设 置 "按钮 。 

3) 在 “启动 和 故障 恢复 "界面 单 击 “ 编 辑 ” 按 钮 ,弹出 boot ini 记事 本 窗口 ,整个 过 程 如 图 
3. 2 所 示 。 
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图 3.2 开启 Windows 3 GB 模式 步骤 图 


4) 在 boot. ini 文件 中 的 [operating systemsj] 项 里 根据 当前 操作 系统 描述 行 增加 二 个 新 的 
操作 系统 描述 行 ( 带 有 “3GB switch” 的 那 一 行 ), 具 体操 作 方法 参照 图 3. 2 所 示 窗 口中 boot ini 所 
示 。 不 同 的 系统 描述 行 稍 有 出 和 人 ,但 方法 是 类 似 的 。 

5) 连续 单 击 “ 保 存 "“ 确 定 ?按钮 ,关闭 这 些 页 面 。 计 算 机 重启 时 会 发 现 增加 了 一 个 开启 
3 GB 模 式 的 系统 选择 项 ,选择 它 就 进 人 了 开启 了 3 GB 的 操作 系统 。 

这 时 再 打开 MATLAB ,在 命令 窗口 运行 如 下 命令 :feature memstats 或 者 system_dependent 
memstats, 会 发 现 开 启 3 GB 模式 后 MATLAB 所 运行 的 内 存 环 境 的 参数 值 , 如 图 3. 3 所 示 。 

从 图 中 可 见 ,Virtual Memory 那 一 项 里 的 MATLAB 整个 程序 运行 的 虚拟 内 存 空间 ,由 
没有 打开 3 GB 模式 时 候 的 2 GB 变 为 打开 3 GB 模式 后 的 3 GB, 增 加 了 1 GB。 而 在 Largest 
Contiguous Free Blocks 那 一 项 里 可 看 到 两 个 在 1 000 MB 以 上 的 连续 地 址 空间 。 
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MATLAB 高 效 编程 技巧 与 应 用 : 25 个 案例 分 析 
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图 3.3 打开 3GB 模式 MATLAB 运行 内 存 环境 参数 
3.3 减 小 内存 消耗 注意 事项 


3.3.1 读 取 数 据 文 件 


当 读 取 比 较 大 的 文件 时 ,要 注意 选择 那些 必要 的 数据 来 读 取 。 比 如 一 个 大 的 文本 文件 可 
能 几 万 行 、. 几 十 列 ,而 我 们 需要 的 可 能 只 有 几 列 或 者 若干 行 。 如 果 全 部 读 取 的 话 , 虽 然 调用 格 
式 简单 ,但 是 非常 占用 内 存 , 如 果 内 存 不 够 大 的 话 ,MATLAB 会 提示 “out of memory” 错 误 。 

读 取 文 本 文件 时 ,如 果 格 式 复 杂 , 并 且 文 件 体 积 较 大 的 话 , 建 议 使 用 textscan。textscan 
是 读 取 文 本 文档 的 底层 函数 ,效率 较 高 。 举 例 来 说 ,textscan 使 用 最 多 的 调用 格式 如 下 : 


data = textscan(fid，format，N，'delimiter '，，) 


其 中 ,fid 是 fopen(' 文 件 名 思 后 返回 的 文件 句柄 ,用 来 标识 文件 中 位 置 。format 是 一 字符 
串 , 形 如 %6f 由 s 中 dd 外 xf% < s…%%* [nm 等 。 其 中 ,%f 是 按照 浮 点 格式 读 相应 的 列 的 数 
据 ,%s 是 按照 字符 串 的 格式 读 相 应 的 列 的 数据 ,%d 是 按照 有 符号 整数 读 相应 的 列 的 数据 ,等 
等 。% * 表示 当前 列 的 数据 跳 过 不 读 , % * [\m] 表 示 从 当前 所 在 行 的 当前 列 开始 到 所 在 行 的 最 后 
一 列 的 数据 都 省 略 , 并 换行 读 取 下 一 行 数据 ;N 用 来 表示 读 取 的 行 数 ;delimiter 后 的 字符 表示 区 分 列 
与 列 之 间 的 标志 。 这 样 可 以 利用 textscan 函数 读 取 想 要 的 行 和 列 的 数据 而 忽略 其 他 的 。 

此 外 ,textscan 返回 的 数据 存放 在 cell 数组 里 ,如 果 读 取 的 全 部 是 数值 型 的 ,可 以 利用 
cell2mat 函数 将 其 转化 成 数值 矩阵 以 节省 内 存 空 间 。 

更 详细 的 解释 可 以 参看 textscan 的 帮助 文档 。 
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此 外 , 当 读 取 大 型 二 进 制 文件 的 时 候 ,可 以 尝试 使 用 memmapfile 函数 ,这 个 函数 的 好 处 
是 利用 虚拟 内 存 技术 ,通过 内 存 映射 的 方式 读 取 二 进 制 文件 的 数据 ,速度 比 fread 和 fwrite 函 
数 要 快 ,非常 适合 经 常 要 随机 访问 文件 中 各 个 位 置 数据 的 情形 。 


3.3.2 数据 存储 


这 里 说 的 数据 存储 指 的 是 程序 运行 中 各 种 变量 在 内 存 中 的 存储 方式 。 应 遵循 以 下 原则 

(1) 根据 问题 需要 选用 适当 的 数据 类 型 

在 第 2 章 已 经 比较 了 数值 型 矩阵 和 cell 型 以 及 struct 型 矩阵 的 存储 特点 和 效率 。 其 实数 
值 型 矩阵 也 有 多 种 数据 类 型 可 供 选择 。 璧 如 问题 精度 要 求 不 高 的 话 可 以 选择 single 类 型 来 表 
示 实 数 ,一 个 single 型 的 数据 占用 4 B, 比 double 型 的 少 一 半 。MATLAB 中 数值 矩阵 支持 的 
数据 类 型 见 表 3.1。 


类 型 


表 3.1 MATLAB 数值 类 型 表 
说 明 





int8 


| 转换 成 带 正 负 号 .8 位 的 整数 ,其 取 值 范围 为 [二 128,127] 
每 个 元 素 占 用 1B 





intl6 


转换 成 带 正 负 号 、16 位 的 整数 ,其 取 值 范围 为 [一 32 768,32 767] 


每 个 元 素 占 用 2 B 





int32 


个 元 素 占 用 4B 


转换 成 带 正 负 号 .32 位 的 整数 ,其 取 值 范围 为 [一 2 147 483 648,2 147 483 647] 
每 





int64 


转换 成 带 正 负 号 .64 位 的 整数 ,其 取 值 范围 为 [一 9 223 372 036 854 775 808,9 223 372 036 854 775 807] 
每 个 元 素 占 用 8B 





uint8 


转换 成 不 带 正 负 号 ,位 的 整数 ,其 取 值 范围 为 [0,255] 
每 个 元 素 占 用 1B 





uint16 


转换 成 不 带 正 负 号 .16 位 的 整数 ,其 取 值 范围 为 [0,65 535] 
每 个 元 素 占 用 2 B 





uint32 


转换 成 不 带 正 负 号 ,32 位 的 整数 ,其 取 值 范围 为 [0, 4 294 967 295] 
每 个 元 素 占用 4B 





uint64 


转换 成 不 带 正 负 号 .64 位 的 整数 ,其 取 值 范围 为 [0，18 446 744 073 709 551 615] 
每 个 元 素 占 用 8B 





single 


转换 成 单 精 度 浮 点 数 
每 个 元 素 占用 4B 





double 


转换 成 双 精度 浮 点 数 
每 个 元 素 占用 8B 





char 





转化 成 字符 型 
每 个 元 素 占 2 B 





(2) 对 于 含 零 较 多 的 给 阵 采用 稀 朴 矩阵 来 存储 

sparse 函数 可 以 用 来 产生 稀 朴 矩阵 。 语 名 S = sparse(i,j,s,myn) 能 够 利用 向 量 闷 六 s 来 
产生 一 个 痉 X 半 的 稀 朴 矩阵 S ,具体 的 产生 方法 为 SCi(k)，j(k)) = s(k)。 其 中 心 ] 是 S 中 不 
为 0 的 元 素 的 行 索引 和 列 索引 ,因此 只 能 是 正 整数 。 此 外 ,S = sparse(CR) 可 以 将 矩阵 4 转化 成 
对 应 的 稀疏 矩阵 形式 S。 大 家 可 以 看 下 面 的 代码 示例 ,体会 一 下 稀疏 矩阵 在 节省 内 存 空 间 和 
提高 计算 速度 方面 的 作用 。 
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宇 = 1:1000} 

j = randperm(1000)1# 随机 排列 1 一 1000 的 所 有 整数 
s=zrand(1,1000);g% 生 成 1* 1000 的 服从 (0， 连续 区 所 分 布 的 向 是: 
S= sparse(i,j,s); 

FS = full(S);*#%S 和 矩阵 的 非 稀 朴 格式 


Whos 
Name Size Bytes Class Rttributes 
FS 1000x1000 8000000 double 
S 1000x1000 16004 double sparse 
主 1x1000 8000 double 
了 TIx1000 8000 ”double 
S 1x1000 8000 double 


>>tic;S2 =Sx Sitoc 

Elapsed time is 0.000330 seconds. 

>> tic;ES2 = FS * FSitoc 

Elapsed time is 0.190742 seconds. 

>> isequal(ful1(S2) ,FS2) 

二 

工 

从 上 面 可 以 清楚 看 到 , 非 稀 疏 矩 阵 FS 需要 800 万 个 字 节 来 存储 ,而 其 稀 朴 矩阵 形式 S 仅 需 
要 16 004 个 字 节 来 存储 。 计 算 速 度 方面 , 稀 朴 矩阵 的 计算 速度 远 远 高 于 非 稀 疏 矩 阵 ,稀疏 化 程度 
越 高 ,这 种 差距 越 明 显 。 此 外 ,需要 注意 的 是 稀 朴 矩阵 在 求解 一 些 大 型 的 线性 规划 问题 时 用 处 很 
大 ,实际 中 很 多 大 型 的 线性 规划 问题 的 约 东 矩阵 的 稀 玻 性 都 非常 强 , 如 果 不 采 用 稀 朴 矩阵 形式 来 
表示 ,惊人 的 计算 量 以 及 内 存 消 耗 量 会 使 得 在 计算 机 上 几乎 无 法 求解 大 型 规划 问题 。 

最 后 有 关 稀 朴 矩 阵 使 用 要 强调 的 一 点 是 :应 当 在 准备 好 数据 后 用 sparse 函 数 生成 稀 朴 矩 
阵 , 而 不 要 先 创建 一 个 大 稀 朴 矩阵 S, 然 后 在 程序 中 用 SCi,j) 的 方式 给 它 赋值 。 后 者 效率 会 很 
低 。 请 看 下 面 的 比较 。 

clear; 

i=1l1:1000;$% 行 序号 

j = randperm(1000); 上 随机 排列 的 列 序号 

n=zrand(1,1000); # 相应 位 置 的 元 素 值 

tic;S1 = sparse(i,j,ny1000,1000)itoc% 用 sparse 函数 生成 稀 朴 矩阵 时 间 


ticy 
S2 = spalloc(1000,1000,1000); 


小 沿 间 六 灯 六 由 贱 8VTLVIN 郊 看 市 蕊 沁 中 诗 六 天 中 -本 产 言 本 过 息 互 直 于 党 党 齐 


fork=1:1000 
S2(i(k)，j(Ck)) = nCOk) 
end; 





toc 当先 创建 一 个 大 稀 朴 矩阵 S, 然 后 在 程序 中 用 SCiyj) 的 方式 给 它 赋值 
了 Blapsed time is 0.000557 seconds. 
PElapsed time is 0.010324 seconds. 


由 此 可 见 后 者 效率 比 前 者 低 得 多 。 如 果 程 序 循环 内 有 大 量 的 这 些 操作 ,前 后 两 种 方法 的 
运行 时 间 差 别 是 相当 大 的 。 

(3) 用 clear 清除 掉 不 用 的 较 大 的 变量 

在 程序 运行 过 程 中 ,往往 会 有 一 些 变量 不 会 再 用 到 ,但 是 这 些 变 量 依然 在 当前 程序 的 工作 
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日 
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空间 存在 ,如 果 这 些 变量 较 大 并 且 较 多 , 随 着 程序 的 运行 就 有 可 能 发 生 内 存 溢出 的 错误 提示 。 
因此 ,需要 在 程序 设计 时 对 不 会 再 用 到 的 变量 用 clear 清理 掉 。 璧 如 下 面 的 例子 ， 


_>> clear al1 
>>R= rand(1000); 
SumR = Sum( 有 ) ; 
Whos 
Name Size Bytes Class Attributes 
及 1000x1000 8000000 double 
SumR 1x1000 8000 double 
>> clear 及 
>> whos 
Name Size Bytes Class Rttributes 
SUmA 1x1000 8000 double 


3.3.3 减 小 内 存 其 他 注意 事项 

MATLAB 应 用 中 还 有 其 他 一 些 技巧 可 以 降低 内 存 。 例 如 ， 

(1) 反 向 量化 操作 

当 操作 的 矩阵 维 数 很 大 ,和 矩阵 占用 的 内 存 接近 计算 机 的 物理 内 存 大 小 时 ,一 些 向 量化 的 运 
算 可 能 导致 内 存 溢 出 错误 。 这 时 候 就 需要 根据 问题 特点 ,采用 循环 的 方式 分 批 次 将 问题 处 理 。 

(2) 变量 的 共享 问题 

不 同 的 函数 空间 ,共享 变量 要 比 传递 变量 (无 论 值 传递 还 是 地 址 传递 ) 效 率 要 高 ,而 且 节省 
内 存 。MATLAB 7. 0 之 后 可 以 利用 嵌 套 函数 Cnested function) 结 构 非 常 方便 地 实现 不 同 函 数 
间 、 主 函数 和 子 函数 间 的 变量 共享 。 关 于 嵌 套 函数 的 详细 介绍 ,请 参考 第 5 章 。 

(3) 画图 的 问题 

MATLAB 在 画图 的 时 候 都 会 将 坐标 数据 存放 在 坐标 轴 句 柄 的 “xdatay,“ydatay ,ezdatay， 
《三维 的 话 ) 属 性 上 ,因此 较 多 点 的 画图 比较 占用 内 存 。 在 实际 应 用 中 ,应 该 结合 问题 需要 ,来 
选取 需要 的 数据 进行 画图 。 

(4) MATLAB 启动 的 问题 

目前 ,MATLAB 的 界面 元 素 都 是 通过 Java 方式 实现 的 。 如 果 计 算 过 程 中 对 界面 操作 功能 
要 求 不 高 , 纯 计 算 占 很 大 比重 的 话 , 可 以 通过 运行 - nojvm 的 方式 启动 MATLAB ,这 样 可 以 减少 
一 百 多 兆 的 内 存 消 耗 。Windows 环境 下 具体 启动 方式 如 下 :任务 栏 单 击 “开始 ”- “运行 > 按钮 ， 
输入 "MATLAB - nojvm”, 按 Enter 键 即 可 。- nojvm 模式 下 的 启动 界面 如 图 3. 4 所 示 。 





Ta get started，type one ef these: helpwln，helpdesk，or dem- 
Fer preduct tnfermat 


tom，wistt wow mathworls -co 





图 3.4 MATLAB - nojvm 启动 模式 界面 
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本 章 详细 介绍 MATLAB 7. 0 以 后 引入 的 新 的 函数 类 型 之 一 一 匿名 函数 (anonymous 
function) 。 匿 名 函数 不 但 完全 可 以 实现 内 联 函 数 (inline function) 的 所 有 功能 ,而 且 一 些 用 内 
联 函 数 实现 起 来 不 大 方便 或 者 不 简洁 的 功能 ,用 匿名 函数 也 非常 容易 实现 。 除 此 之 外 ,通过 
2. 3.2 节 的 比较 ,可 以 清楚 看 到 匿名 函数 的 调用 效率 要 远 高 于 内 联 函 数 。 

Mathworks 研发 人 员 ,包括 首席 科学 家 Moler 教授 本 人 都 推荐 用 匿名 函数 来 代替 内 联 画 
数 。Mathworks 之 所 以 至 今 仍 保留 inline 函数 类 型 ,主要 就 是 照顾 一 些 从 MATLAB 老 版 本 
时 带 过 来 的 客户 ,使 得 他 们 开发 的 代码 在 新 版 本 MATLAB 上 尽量 具有 较 好 的 兼容 性 ,同时 也 
考虑 到 他 们 的 使 用 习惯 。 但 从 效率 角度 以 及 易 用 性 等 方面 来 讲 , 无 论 是 MATLA 防 初学 者 还 
是 已 使 用 MATLAB 多 年 的 人 都 应 该 掌握 匿名 函数 的 用 法 ,并 用 它 蔡 代 内 联 函 数 。 


4.1 匿名 画 数 


先 来 看 下 面 几 个 问题 : 

1) 在 程序 编写 过 程 中 ,经 常 需要 计算 诸如 F(z) 王 sin(z)/z,g(Czyy) 一 exp(CZz) 十 zzln(Cy) 
等 这 样 一 些 数 学 表达 式 的 值 , 如 何方 便 地 构造 这 些 函 数 ? 写成 M 文件 再 调用 肯定 可 以 ,但 是 
从 简洁 以 及 管理 上 的 方便 性 考虑 这 不 是 好 办 法 。 

2) 有 时 通过 符号 计算 推导 得 到 了 一 个 函数 表达 式 , 接 下 来 想 通过 数值 计算 对 这 个 表达 式 
进行 进一步 的 操作 ,譬如 求 值 , 求 数值 积分 等 。 如 何 进行 ? 

3) 很 多 时 候 要 对 含 参 变量 的 函数 进行 操作 ,譬如 f(z)= 袜 ,如 何在 计算 中 得 到 a 的 具体 
值 后 再 得 到 jz) 一 z 的 具体 函数 表达 式 ? 

上 面 这 些 问题 都 可 以 用 匿名 函数 来 方便 的 解决 ,事实 上 ,匿名 函数 的 应 用 非常 灵活 ,读者 
在 2. 3. 2 节 中 已 经 初步 体会 了 匿名 函数 的 用 法 。 下 面 将 开始 详细 介绍 。 


4.1.1 匿名 函数 的 基本 定义 

匿名 函数 的 基本 定义 如 下 : 

fhandle = 人 @@(arglist) expr - 
其 中 ,expr 是 具体 的 函数 表达 式 ,arglist 是 指定 的 函数 的 自 变 量 。 具 体 请 见 下 面 示例 : 


E=@(x) x. 25 
>> fx=f(1:10) 
fx= 
工 9 16 25 36 49 64 81 100 
>>9g=@(xy) x. 2+Y 2; 
>> gxy=g(1:10,2:11) 
gxy = 
要 和 于 61 85 113 145 “ 181 221 


一 2 AAATene 


4.1.2 匿名 函数 的 种 类 


匿名 函数 按照 不 同 的 分 类 方法 可 以 分 为 不 同 的 种 类 。 这 里 按照 自 变量 的 个 数 以 及 层 数 可 
以 分 为 以 下 几 种 : 单 变量 匿名 函数 .多 变量 匿名 函数 . 单 重 匿名 函数 以 及 多 重 匿名 函数 。 

1. 单 变量 匿名 函数 

单 变量 匿名 函数 是 最 简单 的 匿名 函数 ,只 含有 一 个 自 变量 。 例 如 4.1. 1 给 的 例子 ， 


于 = 四 (Cx) x. 23 


就 是 单 变量 匿名 函数 , 除 此 之 外 ,含有 参数 ,参数 值 已 知 的 单个 自 变 量 的 匿名 函数 也 是 单 变量 
匿名 函数 ,譬如 : 


a=10; 
” b=20; 
=@(x axx+bi 
>> f(1:5) 
ans= 
30 40 50 60 70 


2. 多 变量 匿名 函数 
多 变量 匿名 函数 含有 两 个 或 两 个 以 上 的 自 变量 ,例如 4.1.1 给 的 例子 : 


9g=@Goy xx 2+725 
同 单 变量 匿名 郴 数 一 样 ,多 变量 匿名 函数 也 可 以 有 已 知 的 参数 值 。 璧 如 


>>a=1; 
b=2; 
g9=@(Cx'y) arx+y.b 
g(1:5,1:5) 
ans = 

2 6 12 20 30 
>> 


3. 单 重 匿名 函数 

到 目前 为 止 ,上 面 列 的 匿名 函数 ,无 论 单 变量 还 是 多 变量 匿名 函数 ,都 属于 单 重 匿名 函数 。 
这 类 匿名 函数 的 特点 是 :只 有 一 个 “@” 符 号 引导 ,“@” 符 号 之 后 就 是 具体 的 函数 表达 式 。 自 变 
量 输入 单 重 匿 名 函数 后 ,得 到 的 是 具体 的 数值 。 除 了 单 重 匿 名 函数 外 ,还 有 二 重 、 乃 至 多 重 匿 
名 函数 。 这 些 多 重 匿名 函数 在 参数 传递 方面 非常 方便 。 

4. 多 重 匿名 函数 

下 面 以 二 重 匿名 函数 为 例 来 介绍 多 重 匿名 函数 ,读者 可 以 参考 二 重 匿名 函数 写 出 多 重 匿 
名 函数 。 下 例 是 一 个 简单 的 二 重 匿名 函数 ， 

E=Q@(a,b) @(x) axx+Db 


和 = 
@(a,b)@(CoDaxx+b 
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其 中 “a,b? 是 外 层 变 量 ,*x” 是 内 层 变量 。 可 以 这 样 理解 这 个 表达 式 : 每 个 @?” 符 号 后 面 括 号 
里 的 变量 的 作用 域 一 直到 表达 式 的 结尾 。 这 样 ,“a,b” 的 作用 域 就 是 “@(x) ax x 十 b”, 而 “x” 
的 作用 域 就 是 “a x* x 十 b”。 因 此 ,对 于 给 定 的 “a,b”,“gab 王 f(a,b)” 是 一 个 单 层 以 x 为 变量 的 
单 变量 匿名 函数 。 

可 以 利用 functions 函数 观察 建立 的 匿名 函数 信息 ,如 下 : 


E=@(a'b) @(x) axx+b 
于 = 
@(ab)@(x)axx+b 
>> f23= f(2,3) 
f23 = 
四 (x)axx+b 
>> f23info = functions(f23) 
f23info= 
function: '@(x)axx+b 
type: "anonymous 
file: " 
workspace: {3xl cell} 
>> f23jnfo. workspace{1) 
ans = 
1xl struct array with no fields. 
>> f23info. workspace{2} 
ans = 
varargout:， {[1xl function_handle]} 
as: 2 
b: 3 
>> f23info. workspace{3}》 
ans= 
1x1l struct array with no fields. 


两 重 以 上 的 匿名 函数 可 以 参考 二 重 匿 名 函数 类 推 , 璧 如 : 
>>E=@(a) @(b,c) @(x) xa+bxc 
王 = 


G@(CaQ@(Cb,c)@CGCoOxa+bxc 


两 重 以 上 的 匿名 函数 各 变量 的 作用 域 可 以 参考 二 重 匿 名 函数 。 多 重 匿 名 函数 在 变量 传递 
方面 非常 方便 ,本 章 后 半 部 分 将 给 出 具体 应 用 的 例子 。 


4.2 匿名 邹 数 应 用 实例 


本 节 将 通过 一 系列 例子 来 讲述 匿名 函数 的 用 法 。 这 些 例 子 很 多 都 是 源 自 一 些 MATLAB 技 
术 论 坛 网 友 提 出 的 问题 ,很 多 问题 具有 普遍 性 ,都 是 比较 典型 的 ,相信 读者 可 以 从 中 得 到 启发 。 
4.2.1 匿名 函数 在 求解 方程 中 的 应 用 


、 匿名 函数 可 以 非常 方便 地 表示 所 求 方程 ,并 供 fzero 等 求解 函数 调用 。 请 看 下 面 的 例子 。 
【 例 4.2-1] 求 下 列 方 程 的 根 : 
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JF(z) 一 时 十 妇 十 z 一 100 


求解 代码 如 下 : 
>>f= @(x) exp(x) +x2+x(sqrt(x))-100 s% 构 造 方程 的 匿名 函数 形式 
于 = 5 
@@(x)exp(x) + x2+xCsqrt(x)) - 100 
>> format long < 
>> x0 = fzero(f,3) 当 求 方程 的 根 , 初 始 值 为 3 
x0 = 
4.163549956946139 多 求 出 的 解 
>> f(x0) 外 代 人 原 方程 验证 
二 


2.842170943040401le -014 


从 例 4.2- 1 中 可 以 看 出 , 鞭 名 函数 在 表达 方程 方面 很 简洁 。 例 中 没有 参数 ,如 果 方 程 有 额 
外 的 参数 ,而且 要 求 对 不 同 的 参数 一 一 求解 方程 相应 的 根 , 该 怎么 办 呢 ? 请 看 例 4.2- 1 续 。 
【 例 4.2-1 续 】 对 于 “一 [0,0.01,0.02,…,2], 求 下 列 方程 相应 的 z 值 ,并 画 出 c 和 相 
应 的 z 的 图 像 。 
J(z) 一 er 十 ze 十 zz 一 100 
本 例 多 了 一 个 参数 项 ,因此 对 于 不 同 的 a, 方 程 的 具体 表达 式 也 不 一 样 。 下 面 的 代码 给 
出 这 一 求解 并 且 画 图 的 过 程 。 


f=@(a) @(x) exp(x) + xca+xc(Csqrt(x)) -100;% 构 造 函数 句 柄 

format long 

aa= 0:0.01:2; 

Plot(aayarrayfun(@(a) fzero(f(a),4),aa),* -'")# 利 用 arrayfun 求 解 不 同 的 a 对 应 的 x 
xlabel('$aS$'，interpreter', latex',, fontsize',15) 负 标 注 xy 坐标 轴 , 按 照 latex 语法 

了 label(S$SxS$' interpreter', latex',, fontsize',15) 

title(C $ \mathrm{e)~({x) + xc{Nsqrt{x)) + xca 一 1005'interpreter'，latex' 
"fontsize',15) 


生成 的 图 形 如 图 4. 1 所 示 。 
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4.2.2 匿名 函数 在 显 式 表 示 隐 函数 方面 的 应 用 


隐 函 数 一 般 无 法 在 数学 上 显 式 表 示 。 这 里 说 的 显 式 表示 指 的 是 构造 一 个 MATLAB 函数 
来 表达 隐 范 数 , 具 体 思路 是 对 于 给 定 的 隐 函 数 的 自 变量 zx, 通过 数值 方法 求解 出 因 变 量 ,这 
样 就 相当 于 显 式 表达 隐 函 数 。 请 看 下 面 的 例子 ， 
【 例 4.2-2】 显 式 表 示 下 列 > 关于 z 的 隐 函 数 : 
(Ce 十 z) 六 一 zzy 一 0 
利用 匿名 函数 ,可 以 在 MATLAB 中 显 式 得 写 出 > 和 xz 的 关系 式 如 下 : 


Y= @(x) fzero(@(Y) (exp(Y) + xy)”(1/Y) -x2xy,1)5 
这 样 , 对 于 任意 的 zx, 只 需 调 用 yz 一 y(z) ,就 能 得 到 对 应 的 y 值 ,如 : 


format long 
中 =Y(1) 
3 
2.777942350124938 
>> 22=Y(2) 
12= 
1.105452026515033 
>> 中 =Y(3) 
23= 
0.775941879211877 


这 时 的 > 只 能 接受 标量 z 输入 ,利用 函数 arrayfun, 也 可 以 令 其 接受 向 量 输入 : 


>> format long 
>>Y= @(x) arrayfun(@ (Coc) fzero(@(Y) (exp(Y) + xDoCY) (1/7) -xc2x#Y1 )，x)， 
>> YC1:10) 
ans = 
Columns 1 through 5 
2.777942350124938 1. 105452026515033 “0.775941879211877 “0. 628359329251039 “0. 542541817671730 
Columns 6 through 10 
0. 485590680913226 ”0. 444620168925079 ”0. 413493851208235 ”0. 388897398866600 “0.368874717117660 
>>YC1) 
ans = 
2.777942350124938 


读者 可 能 对 如 下 关键 语句 有 疑问 : 
Y= @(x) arrayfun(@(xx)fzero(@(Y) (exp(y) + xx Y) (1/7) -xxC2xY, 1 )，x)5 
其 实 arrayfun 函数 作用 就 是 对 


Y= @(x) fzero(@(y) (exp(9) +xy)nG/D -xc2xYil)i 
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增加 了 一 个 循环 的 “外 壳 ”, 使 得 Y 既 可 以 接受 标量 zx 输入 ,还 可 以 接受 向 量 zx 的 输入 。 其 中 ， 
@@(xoc)fzero(@(Y) (exp(Y) + xocY) (1/Y) -3xocC2*Y 1 ) 


是 arrayfun 函数 的 第 一 个 输入 参数 ,定义 了 以 循环 变量 “xx” 为 输入 参数 的 匿名 函数 ,实现 的 
功能 是 针对 每 个 xz, 求 对 应 的 使 
(er 十 (zz)>)Y 一 (zz)2y 一 0 

成 立 的 y。zz 的 循环 范围 是 Y 的 输入 变量 x ,也 就 是 上 述 arrayfun 函数 的 第 二 个 输入 参数 ， 
这 样 x 是 标量 的 时 候 zz 的 循环 范围 就 是 一 个 值 , 是 向 量 的 时 候 就 遍历 zx 的 每 个 元 素 。 

【 例 4.2 -3】〗 显 式 表 示 下 列 = 关于 z,y 的 隐 范 数 : 

= 一 sin( (zz 一 0. 5)2 十 2zo 若 )exp( (ce 0.5 一 exp( 一 y 十 z))2 十 2 +3)) 

借助 匿名 函数 ,可 以 写 出 = 关于 zx,y 的 关系 式 如 下 : 





z=@(x,y) fzero(@(z) zsin((zxx-0.5)72+xx2xY2 一 z/10)# 
exp(-((x-0.5-exp(-Y+z)) "2+Y2-z/5+3)),rand); 


其 中 ,fzero 函数 求解 该 隐 函 数 的 初 值 为 随机 值 rand。 利 用 上 述 匿名 函数 ,可 以 画 出 关于， 
?3 的 图 形 : 


[x, 中 = maeshgrid(- 1:0.1:7, 一 2:0.1:2) 

了 = arrayfun( 人 @(x,y) z(xyy),X,Y)5 

SUrE(X,Y,Z) 

xlabel(\fontsize(15}Nfontnameftimes new romanjx' color' by 
”yabel(\fontsizef15}NEfontname{times new roman}y'，color'，b') 

zlabel(N\fontsize{15}N\fontname(times new roman}z'，color'，b') 

title(\fontsize{15)}\fontname{ 隶 书 }z(x,Y) 的 函数 图 像 ， color  ，r7) 


画 出 的 图 形 如 图 4. 2 所 示 。 
zftxy 了 ) 的 本 数 图 





图 4.2 z(x, 了 ) 关 于 x,y 的 图 像 
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4.2.3 匿名 函数 在 求 积 分 区 域 方面 的 应 用 


有 的 时 候 ,需要 根据 已 知 的 积分 值 和 被 积 函 数 求 对 应 的 积分 区 域 , 当 被 积 函数 表达 式 不 是 
很 复杂 的 时 候 , 用 匿名 函数 比较 适合 。 请 看 下 面 例题 : 

【 例 4.2-4】 要 使 sin*(z)/z? 这 个 式 子 的 积分 值 为 0. 99x, 求 其 关于 0 对 称 的 积分 区 域 。 

该 积分 区 域 相 对 > 轴 是 对 称 的 , 故 实际 计算 时 ,只 需 计 算 zx>0 范围 的 积分 区 域 。 本 例 利 
用 匿名 函数 求解 的 话 非 常 方便 , 仅 有 一 行 代码 : 


u0 = fzero(@(u) 0.99* pi/2- quadl(@(x) sin(x).2./(x. 2),0,u，1) 
0 = 
32.3138 


上 面 代码 的 意思 是 求 “0. 99 * pi/2 一 quadl(@(x) sin(x). -2. /(x.`2),0,u)” 等 于 0 成 立 的 
ufzero 求解 的 时 候 设置 的 初始 值 为 1, 最 后 求 出 的 结果 是 u0。 


4.2.4 匿名 函数 在 求 数 值 积分 方面 的 应 用 


匿名 函数 在 求 数值 积分 的 方面 应 用 非常 灵活 ,功能 也 非常 强大 。 本 书 第 6 章 将 专门 讨论 
各 种 类 型 的 积分 以 及 积分 方程 求法 ,那里 会 有 大 量 匿名 函数 应 用 的 例子 。 


4.2.5 匿名 函数 和 符号 计算 的 结合 


有 的 时 候 需要 推导 一 些 表 达 式 , 而 对 得 到 的 表达 式 进行 诸如 求 值 、. 积 分 或 者 极 值 的 运算 。 
如 果 表 达 式 不 是 很 复杂 的 话 , 可 以 手动 推导 。 但 是 很 多 时 候 手动 推导 非常 烦琐 甚至 根本 不 可 
行 , 这 时 候 就 要 借助 计算 机 来 推导 。 在 得 到 表达 式 后 ,再 将 其 转化 成 匿名 函数 ,从 而 方便 的 进 
行 后 续 处 理 。 请 看 下 面 的 例子 ， 

【 例 4.2-5】 求 下 面 函 数 三 阶 导 数 在 [0,1] 的 图 像 。 

J(Cz) 一 [z 十 tan( 并 ) ] 和 

本 例如 果 用 手动 计算 的 话 ,比较 烦琐 。 如 果 用 符号 运算 得 到 三 阶 导数 的 解析 表达 式 , 然 后 
再 转化 成 匿名 函数 , 则 比较 方便 。 读 者 尤其 是 初学 者 ,可 以 从 本 例 了 解 符号 计算 和 数值 计算 结 
合 的 一 种 途径 。 本 例 代码 如 下 : 


SYms 工 际 、 
于 = (x+ tan(x))~(sin(x)) 和 
c=diff(f,3); 
f3 = eval(['@(x)' vectorizekc)]); 

x= Linspace(0,1,100)3 

plot(x,f3(Cx) ，'1linewidth' ,2) 、 
title('Y= (x+ tan(x))\ (sin(x)) 三 阶 导数 图 像 ) 
xlabel(Cx');ylabel(Cy) 





最 后 得 到 的 图 形 如 图 4. 3 所 示 。 


一 AM 全 


Y= 人 x+tantoJXsino) 三 阶 导数 图 像 
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2000， T 


T 一 一 一 一 














图 4.3 [x 十 tan(x)]w 三 阶 导数 图 像 


4.2.6 匿名 函数 在 优化 中 的 应 用 


匿名 函数 在 优化 中 的 应 用 主要 是 以 表示 目标 函数 的 形式 出 现 的 。 璧 如 下 例 ， 
【 例 4.2-6】 求 下 面 函 数 的 最 小 值 : 

JCz) 一 3 好 十 2zizz 十 好 
用 匿名 函 数 来 表示 目标 函数 F(z) 如 下 ， 


E=@(x) 3xx(1)-2+2xX(I)xXx2) + X(2) 23 
进一步 求解 


x0=[1,1];# 初 始 值 
[xfval] = fminunc(F,x0) 
x= 
1.0e 一 006 * 
0.2541 ”一 0.2029 
fval = 
1.3173e- 013 


在 默认 精度 下 ,得 到 最 优 解 为 zi 一 2. 541 X10-7 ,zs 一 一 2.029X 10 7 ,最 优 值 为 foa7 一 
1.3173X10-9a。 


4.2.7 匿名 函数 在 求 积分 区 域 方面 的 应 用 


有 的 时 候 , 需 要 根据 特定 的 积分 值 反 求 积分 区 域 。 例 如 下 面 的 问题 ， 

【 例 4.2-7】 使 (sin?z)/z? 这 个 式 子 的 积分 值 为 0. 99r, 求 在 MATLAB 上 实现 求解 其 
积分 域 。 

该 积分 区 域 相 对 > 轴 是 对 称 的 , 故 实际 计算 时 ,只 需 计 算 zx 一 0 范围 的 积分 区 域 。 求 解 代 
码 如 下 : 


“ 攻 骨 齐 认 是 生 由 生 二 8VTIVIN 郑 鹿 机 路 内 闪失 六 关 二 。 配 澳 辣 宣 二 归 了 互 上 于 学 辽 洒 
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u0 = fzero(@(u) 0.99 * pi/2 - quadl(@(Cx) sin(x) ;2.7(Gx. 2),0,u，1) 
0 = 
32.3138 


得 到 积分 区 域 为 [一 32. 313 8,32. 313 8] 
4.2.8 匿名 函数 和 cell 数组 的 结合 应 用 


cell 型 的 数组 还 可 以 存放 包括 匿名 函数 在 内 的 函数 句柄 。 这 样 ,通过 cell 数组 ,可 以 存储 
多 个 函数 ,并 且 可 以 批量 执行 函数 。 请 看 例子 ， 


【 例 4.2-8】 用 cell 数组 存储 广 (z) 一 屏 十 sin(z) , 户 (z) 一 居 -5ACo=sn( 志 ) ,并 
求 各 个 函数 在 zx 一 2 处 的 函数 值 。 代 码 如 下 ; 


>> fun= cel1(3,1); 
>> fun{1} = @(x) x2+sin(Gx)， 
>> fun{2}=@(CoD x3-5; 
>> fun{3) = @(x) sin(1/sqrt(x))， 
>> val = cellfun(@(x) x(2),fun) 
Val = 

4.9093 

3.0000 

0.6496 


读者 请 注意 cellfun 函数 ,可 以 看 到 ,cellfun 对 每 个 fun 中 存储 的 郴 数 都 进行 了 求 其 在 
z 一 2 处 的 值 的 操作 。 得 到 的 值 分 别 为 户 (2) 一 4. 909 3， 户 (2) 一 3. 000 0， 广 (2) 一 0.649 6。 








本 章 详 细 介绍 MATLAB 7.0 以 后 引入 的 另 一 个 强大 的 函数 类 型 一 - 嵌 套 函数 类 型 (nes- 
ted function) 。 嵌 套 函数 和 子 函 数 既 有 区 别 也 有 联系 , 嵌 套 函数 可 以 方便 地 实现 变量 共享 . 
这 样 在 进行 参数 传递 时 ,使 得 程序 更 加 灵活 。 

第 4 章 详 细 地 介绍 了 匿名 函数 的 用 法 ,读者 对 匿名 函数 的 方便 易 用 已 经 有 了 一 些 体会 ,而 
散 套 函数 更 加 灵活 和 强大 ,可 以 实现 匿名 函数 实现 起 来 不 能 或 者 很 烦琐 的 功能 。 


S.1 难 套 画 数 


类 似 第 4 章 , 先 来 看 下 面 几 个 问题 ， 

1) 在 程序 编写 过 程 中 ,有 的 数学 表达 式 比较 长 ,不 方便 用 一 行 来 表示 ,而 且 这 个 表达 式 里 
还 有 其 他 的 参数 。 这 时 候 就 需要 将 其 写成 函数 , 用 撕 套 函数 可 以 方便 的 解决 参数 共享 问题 。 

2) 在 求解 微分 方程 或 者 进行 优化 问题 求解 时 ,一 些 复杂 的 表达 式 往往 涉及 参数 传递 过 
程 ,这 个 时 候 , 比 较 适 合 将 其 表达 式 写成 戏 套 函数 。 

3) 在 编写 GUI(Graphical User Interface 的 缩写 , 即 : 图 形 用户 界 面 ,简称 GUI。) 的 回调 
函数 时 ,参数 传递 往往 是 个 坏 手 的 问题 。 利 用 舱 套 函数 ,可 以 方便 解决 这 个 问题 。 

堪 套 函数 结构 非常 强大 ,方便 易 用 。 读 者 在 2. 3. 2 节 中 已 经 初步 体会 了 典 套 函数 的 用 法 。 
下 面 将 开始 详细 介绍 。 


S.1.1 诡 套 函数 的 基本 定义 


其 套 函数 , 即 nested function ,顾名思义 ,是 嵌 套 在 函数 体内 部 的 函数 。 散 套 函数 可 以 出 
现在 一 个 函数 体内 部 的 任何 位 置 , 开 始 以 function 声明 ,结束 的 时 候 加 上 end。 需要 说 明 的 
是 ,包含 有 姑 套 函数 的 函数 ,无 论 它 是 主 函 数 . 子 函数 或 者 嵌 套 函数 ,都 应 该 在 未 尾 的 地 方 加 上 
end。 下 面 代 码 是 一 个 简单 的 艇 套 函 数 的 例子 ， 


function r = MYTestNestedFun(input) 

as=5; 

c= sin(input) + tan(input); 

function yY= nestedfun(b) 

=axc+bi 

end 

工 = nestedfun(5); 本 人 人 二 三 2 和 


保存 后 在 命令 窗口 中 输入 : 


AT 
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z= MYTestNestedFun(6) 
得 到 如 下 结果 : 
工 = 

2 1679 和 


结果 是 这 样 得 到 的 :调用 MyTestNestedFun 后 ,程序 依次 执行 a 一 5;c=sin(input) 十 tan 
Cinput); 然后 又 调用 nestedfun 这 个 嵌 套 函数 ,此 时 b=5, 而 嵌 套 函数 所 在 的 函数 中 的 ayc 对 
媒 套 函数 是 可 见 的 。 即 a 一 5，,c 一 一 0.5704。 于 是 r* 一 ax c 十 b 一 5x*(〈 一 0.5704) 十 5 一 2. 1479 。 


S.1.2 次 套 函 数 种 类 


嵌 套 函数 可 以 分 为 单 重 嵌 套 函 数 和 多 重 嵌 套 函 数 。 先 说 单 重 嵌 套 函 数 ,这 样 的 函数 舱 套 
在 别 的 函数 体内 ,自己 内 部 不 再 有 媒 套 的 函数 ,如 5.1. 1 节 中 给 出 的 函数 示例 。 一 个 函数 里 可 
以 有 一 个 或 者 多 个 单 重 骨 套 函 数 。 

多 重 嵌 套 函 数 ,这 样 的 函数 肉 套 在 别 的 函数 体内 ,同时 自己 内 部 又 嵌 套 着 别 的 另 一 层 或 几 
层 函 数 。 同 样 一 个 函数 里 可 以 有 一 个 或 者 多 个 多 重典 套 函 数 。 如 下 面 类 型 的 函数 ， 


区 x= 有 RCpPL，p2) 
function Y1 = BLCP3) 
function zl = C1(pP4) 
function Y2 = B2(p5) 
3 function z2 = C2(p6) 
function w= D(P7) 
end 


end 
end 


和 


该 函数 ACpl,p2) 内 部 有 两 个 嵌 套 函数 ,分 别 是 Bl1(p3) 和 B2(p5) ,而 B1(p3) 和 B2(p5) 分 
别 是 二 重 和 三 重 艇 套 函 数 。 


5.2 识 套 昌 娄 的 变量 作用 城 


变量 的 作用 域 指 的 是 变量 能 够 被 程序 访问 、 修 改 . 设 置 等 的 代码 范围 。 含 有 骸 套 函数 的 画 


数 体内 的 变量 作用 域 非常 重要 但 同时 又 容易 搞 错 。 在 讨论 这 些 变量 作用 域 前 ,请 读者 先 运行 
下 面 三 个 例子 ,看 一 下 结果 ,体会 一 下 位 于 不 同位 置 的 变量 的 作用 域 。 
【 例 5.2-1] 变量 作用 域 示 例 1。 


function r= NestedFunctionVarScopeDemo(a) 
b=a+1li 
function Nested1 
Cc=b+1Ir 
function Nested11 
d=c+as 


Nestedl1; 
end 
Nestedl 
ZI= 几 
end 


运行 上 面 的 代码 , 璧 如 ， 


Fr= NestedFunctionVarScopeDemo(1) 
工 二 
要 


上 述 代 码 有 一 个 二 重 嵌 套 函 数 Nestedl , 它 内 部 还 包含 一 个 嵌 套 函数 Nested11 ,整个 函数 
的 执行 过 程 如 下 : 

传人 变量 a=1, 计 算 b 的 值 ,b 一 2; 遇 到 Nested1 的 函数 定义 , 往 下 是 调用 Nestedl 的 语 
名 ,进入 Nestedl 之 后 先 计算 e 的 值 , 即 等 于 b 十 1 一 3。 从 这 里 可 以 看 到 ,在 典 套 函数 体内 ， 
可 以 访问 主 函 数 之 内 的 变量 .。“c=b 十 1;” 这 条 语句 之 后 是 定义 Nestedll 的 函数 语句 ,定义 
Nestedl1 结束 后 ,是 调用 Nestedl1l 的 函数 语句 。 从 Nested11 的 定义 来 看 ,这 个 函数 非常 简 
单 , 仅 仅 做 的 是 计算 d 一 c 十 a; 从 这 里 可 以 看 出 在 第 二 重 嵌 套 函 数 里 ,分 别 访问 了 Nestedl 里 的 
变量 c 和 主 函 数 里 的 变量 a。 主 函 数 最 后 一 句 是 从 外 部 访问 了 第 二 重典 套 函 数 里 的 变量 d, 并 
将 d 赋 给 r, 以 此 作为 主 函 数 的 返回 值 。 

从 上 面 这 个 稀 套 函数 的 示例 可 以 看 出 , 主 函 数 和 嵌 套 在 其 内 的 函数 ,它们 各 自 的 变量 是 可 
以 互相 访问 的 。 但 是 必须 注意 的 是 , 庶 套 函数 访问 主 函 数 的 变量 ,可 以 在 函数 定义 里 直接 拿 过 
来 用 ,而 主 函 数 访问 嵌 套 在 其 内 的 函数 里 的 变量 则 必须 要 经 过 调用 之 后 才能 用 。 譬如 上 例 主 
函数 访问 Nestedl1 里 的 d, 是 经 过 在 主 函 数 里 调用 Nestedl ,而 在 Nested1l 里 又 调用 Nested1l1 
后 才 成 功 的 ,和 否则 是 不 行 的 。 再 看 下 面 的 例子 。 

【 例 5.2-2】 变量 作用 域 示 例 2。 


function r = NestedFunctionVarScopeDemo2(a) 
b=a+li 
function Nestedl 
C=b+ly 
cl=10; 
function Nested11 
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rd=c+ay 
end 
end 
Nestedl 
e= cl 
= di 
end 


运行 得 到 如 下 结果 : 


Fr= NestedFunctionVarScopeDemo2(1) 
e= 
10 
33? Undefined function or variable"d". 


Error in==> NestedFunctionVarScopeDemo2 at 12 
=di; 


在 调用 NestedFunctionVarScopeDemo2 时 候 发 生 了 错误 ,从 提示 来 看 ,是 没有 定义 变量 
“d"”。 这 是 因为 调用 Nestedl 后 执行 了 Nestedl 里 的 语句 ,但 是 Nestedl 中 只 是 定义 了 Nes- 
tedll ,而 并 没有 调用 它 的 语句 。 因 此 ,外 界 不 能 访问 d。 这 也 就 是 为 什么 e 一 cl; 可 以 成 功 而 
r 一 d; 报 错 的 原因 了 。 

上 面 讨论 了 骨 套 函数 和 主 函 数 之 间 变 量 互相 访问 的 情况 (包括 主 函 数 也 是 典 套 函数 的 情 
况 )。 那 么 不 同 的 嵌 套 函数 之 间 呢 ,它们 之 间 没 有 散 套 关系 变量 能 不 能 互相 访问 呢 ? 请 看 下 面 
的 例子 。 

【 例 5.2-3】 变量 作用 域 示 例 3。 


function r = NestedFunctionVarScopeDemo3(a) 
b=a+1li 
function Nested1 
c=b+ls 
cl=10; 
Nested2; 
c2 =d2; 


该 函数 里 面包 含 两 个 嵌 套 函数 ,都 是 单 重 的 ,一 个 是 Nestedl ,一 个 是 Nested2。 本 例 是 想 
验证 ,能 否 直接 从 Nestedl 中 通过 调用 Nested2 来 访问 其 中 的 变量 。 经 过 运行 得 到 下 面 的 
结果 : 


_ _ 
一 


工 = NestedFunctionVarScopeDemo3(1) 
?2?? Undefined function or variable 'd'. 


了 rror in==> NestedFunctionVarScopeDemo3 > Nestedl at 7 
c2=d2; 


Error in ==> NestedFunctionVarScopeDemo3 at 12 
Nestedl 


从 错误 提示 来 看 ,出 错 原因 是 访问 变量 “d" 不 成 功 ,“d" 未 定义 ,所 以 彼此 没有 典 套 关系 的 
散 套 函数 间 是 不 能 简单 得 共享 变量 的 。 如 果 非 要 共享 ,只 能 通过 它们 所 在 的 主 函 数 来 进行 。 


5.3 家 套 画 数 彼此 调用 关系 


5. 2 节 讨论 了 奶 套 函数 的 变量 作用 域 。 在 讨论 过 程 中 读者 可 能 已 经 注意 到 了 , 主 函 数 和 
散 套 函数 之 间 的 变量 共享 需要 通过 调用 来 实现 。 那 么 这 就 涉及 一 个 问题 , 主 函数 和 其 套 函 数 ， 
不 同 的 嵌 套 函数 之 间 , 以 及 不 同 嵌 套 层次 的 函数 ,它们 之 间 的 调用 关系 是 怎样 的 呢 ? 本 节 就 来 
详细 讨论 这 些 问题 。 


5.3.1 主 函 数 和 讽 矢 函数 之 间 


这 里 的 主 函数 包括 最 上 层 的 主 函 数 , 即 不 嵌 套 在 任何 函数 里 的 函数 以 及 本 身 是 嵌 套 函数 ， 
但 同时 内 部 还 嵌 套 有 其 他 函数 的 函数 。 因 为 这 些 函数 相对 谍 套 在 内 的 函数 来 说 也 是 主 函 数 。 
这 样 的 情形 下 ,调用 关系 遵循 下 面 的 原则 : 主 函 数 可 以 调用 嵌 套 在 其 中 的 第 一 重 嵌 套 函 数 ,而 
不 能 调用 第 二 重 或 者 更 深重 的 舱 套 函数 ;无 论 第 几 重 嵌 套 函 数 ,都 可 以 调用 其 主 函 数 或 者 主 函 
数 的 主 函 数 等 等 。 请 看 下 面 的 例子 ， 

【 例 5.3 - 1】 座 套 函数 调用 示例 1 。 


function r = NestedFunctionCallDemol(a) 
b=a+1li 
function cl = Nestedl(x) 
c=b+li 
Cl1=10+CeX3 
function d= Nested11 
d=c+at 怀 
end 
end 
cl = Nestedl(1)， 
r= Nested11l; 
end 


本 例 呈 现 的 是 主 函 数 调用 子 函数 的 例子 ,从 例 5. 3 - 1 可 以 看 出 ,在 主 函 数 NestedFunc- 
tionCallDemol 里 分 别 对 Nestedl 和 Nestedl1l 进行 了 调用 。 运 行 结果 如 下 ; 
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工 = NestedFunctionCallDemol(1) 
cl= 
13 
??3? Undefined function or variable "Nested1l' 


Error in ==> NestedFunctionCalleDemol at 11 
z= Nested11; 


从 结果 来 看 ,调用 Nestedl 成 功 ,而 调用 Nested11 没有 成 功 。 这 验证 了 “ 主 函 数 可 以 调用 
嵌 套 在 其 中 的 第 一 重 嵌 套 函 数 ,而 不 能 调用 第 二 重 或 者 更 深重 的 嵌 套 函数 ”。 

如 果 是 嵌 套 函数 调用 主 函 数 的 情形 呢 ? 再 看 下 面 这 个 例子 ， 

【 例 5.3- 2 媒 套 函数 调用 示例 2。 


function NestedFunctionCal1Demo2(flag) 
Switch flag 

case 1 
disp( flag=17)7 
Feturnt 

case 2 
disp( flag=27 
NestedFunl 

Case 3 
dispC flag=3904 
Teturn 

otherwise 
disp([ flag = ,num2str(flag)])? 
Teturn 


end 
function NestedFunl 
NestedFunctionCallDemo2(1); 
NestedFun2 
function NestedFun2 
NestedFunctionCal1lDemo2(3) 
end 
end 
end 


运行 上 述 代码 ,得 到 下 面 结 果 : 


NestedFunctionCallDemo2(2) 

flag=2 

于 lag = 1 

flag= 3 

当 flag 王 2 时 ,执行 的 是 NestedFunl ,而 在 NestedFunl 中 调用 了 主 函 数 ,这 时 候 flag 王 1, 因 
此 显示 “flag 一 1”, 接 下 来 在 NestedFunl 中 对 NestedFun2 进行 了 调用 。 而 NestedFun2 对 最 外 层 
的 主 函 数 来 说 是 一 个 二 重典 套 函 数 ,同样 它 也 调用 了 NestedFunctionCallDemo2 ,只 不 过 flag=3， 
因此 显示 “flag 一 3”。 从 例 5. 3 - 2 可 以 看 出 , 嵌 套 函数 对 主 函 数 的 调用 是 可 以 的 。 








第 5 章 僻 套 函数 类 型 


5.3.2 不 同 的 次 套 本 雪 之 间 


这 里 讨论 的 不 同 典 套 函 数 之 间 指 的 是 嵌 套 深度 相同 或 者 不 同 ,彼此 之 间 没有 嵌 套 与 被 嵌 
套 关 系 的 不 同 的 嵌 套 函数 。 和 以 及 位 于 第 二 层 的 不 同 骨 
套 函 数 之 间 , 等 等 。 请 看 下 面 这 个 例子 

【 例 5.3 -3】〗 工 套 函数 调用 示例 3。 





运行 结果 如 下 ; 站 宙 广 过 永生 梧 打 可 





从 上 面 结果 来 看 , Nestedl 执行 后 成 功 调用 Nested2, 这 说 明 第 一 层 的 风 套 画 数 之 间 是 可 
以 互相 调用 的 。 全 光 和 区 用 二 汪 汪 本 的 玫 衬 夺 放 
【 例 5.3-4] 人 
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运行 代码 ,得 到 如 下 结果 : 





从 上 面 的 执行 情况 可 以 看 出 ,函数 Nestedl1l 成 功 被 调用 ,而 且 Nestedl1l 再 调用 Nested2 
时 也 成 功 了 ,通过 Nested2 ,间接 调用 了 Nested22, 但 是 从 Nestedl1l 中 直接 调用 Nested22 却 
没有 成 功 。 这 说 明 第 二 重 嵌 套 函 数 可 以 调用 不 包含 它 的 第 一 重 嵌 套 函 数 。 如 果 是 第 三 重典 套 
函数 ,那么 能 否 调 用 不 包含 它 的 第 二 重 骨 套 函数 呢 ? 请 看 下 面 例子 : 

【 例 5.3 - 5】 嵌 套 函数 调用 示例 5 。 





一 + xxx [rene 


运行 【 例 5. 3 - 51, 得 到 如 下 结果 ， 


Nestedl 执行 ,输入 :5 

Nested11 执行 ,输入 :6 

Nested11l 执行 ,输入 :3.1416 

Nested2 执行 ,输入 :2.7183 

Nested22 执行 ,输入 :9.8696 

?3?? Undefined function or method "Nested22' for input arguments of type 'double' 


了 Error in==> NestedFunctionCal1Demo5 > Nested1l/Nested11/Nestedlll at 12 
Nested22(100) 


了 Error in ==>NestedFunctionCallDemo5 > Nested1/Nestedll at 8 
Nestedl11(pi) 


Error in==> NestedFunctionCallDemo5 > Nestedl at 5 
Nested11(6) 


Brror in ==> NestedFunctionCal1Demo5 at 2 
Nested1(5) 


从 上 面 的 执行 情况 可 以 看 出 ,函数 Nestedl 执行 后 ,函数 Nestedl1 成 功 被 调用 , 而且 
Nestedl1l 再 调用 Nestedl111, Nestedl11l 再 调用 Nested2 时 也 成 功 了 ;通过 Nested2, Nes- 
tedl11 间接 调用 了 Nested22, 但 是 从 Nested11l 中 直接 调用 Nested22 却 没 有 成 功 。 这 说 明 
第 三 重 嵌 套 函 数 ,不 可 以 调用 不 包含 它 的 第 二 重典 套 函 数 。 


S.3.3 区 枯 函 数 调用 关系 总 结 


本 节 前 半 部 分 讨论 了 各 种 情形 下 的 内 套 函数 相关 调用 情况 ,为 了 方便 读者 理解 并 记忆 这 
些 调 用 关系 ,可 以 将 上 述 调用 情况 进行 类 比 。 

具体 如 下 :将 主 函 数 看 成 “父亲 ”, 嵌 套 函 数 依据 嵌 套 深度 可 以 看 成 “儿子 ”",“ 孙 子 ”,“ 重 
孙 ”, 等 等 。 这 样 最 外 层 的 主 函 数 可 以 认为 是 所 有 内 部 函数 的 “祖先 ,位 于 不 同 典 套 函 数 里 的 
函数 之 间 的 关系 类 似 于 一 个 家 族 之 间 的 “亲属 关系 ”。 

譬如 例 5. 3 - 5 中 ,祖先 ”是 函数 NestedFunctionCallDemo5， 函数 Nestedl 和 函数 Nes- 
ted2 是 它 的 两 个 “儿子 ”, 函 数 Nestedll 和 函数 Nested22 是 它 的 两 个 “孙子 ”, 而 函数 Nes- 
tedl11 是 它 的 重 孙子 。 函 数 Nested11 和 Nested1l1 之 间 是 “ 堂 兄弟 ”的 关系 等 等 。 把 “函数 调 
用 另 一 个 函数 ”类比 于 “一 个 人 求助 于 另 一 个 人 ”。 这 样 艇 套 函 数 之 间 的 调用 关系 可 以 总 结 成 
下 面 几 句 话 : 

父亲 可 以 求助 儿子 ,儿子 可 以 求助 父亲 ,也 即 父子 可 以 互相 求助 。 一 个 人 不 能 求助 孙子 、 
重 孙 等 后 代 , 但 是 可 以 求助 自己 的 祖宗 (祖父 .曾祖 父 等 等 )。 一 个 人 可 以 求助 自己 的 亲 兄 弟 ， 
或 者 叔叔 .伯伯 但 不 能 求助 侄 儿 。 
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5.4 家 套 留 数 应 用 实例 


本 节 将 通过 一 系列 例子 来 展示 嵌 套 函数 的 用 法 ,通过 这 些 例 子 ,读者 可 以 体会 嵌 套 函数 的 
方便 以 及 强大 。 这 些 例子 很 多 是 在 各 .MATLAB 技术 论坛 被 网 友 频 繁 提问 的 一 些 问 题 。 相 信 
读者 可 以 从 中 获得 启发 。 


S.4.1 让 得 函 数 在 求解 积分 上 限 中 的 应 用 


【 例 5.4- 1】 如 下 述 积分 表达 式 , 已 知 a、e 和 1Z ,如 何 求 得 匡 ? 
人 伟 让 1 一 局 ) 
本 上 (1 一 上 sinzgya5dp 
本 例 关 于 8 的 积分 结果 不 能 解析 表示 ,需要 用 数值 积分 来 做 ,同时 还 要 求解 一 个 非 线性 方 
程 ,本 例 积分 表达 式 写 出 来 不 是 很 复杂 ,可 以 利用 匿名 函数 来 做 。 有 兴趣 的 读者 可 以 尝试 下 ， 
这 里 采用 垦 套 函数 来 求解 。 代 码 如 下 : 


function sol = example541(ayey,1) 
function f = funl(beta) > 
于 =a,x (1 一 e.2)./(1-e.2.*sin(beta).-2).”(3/2)8 
end 
function g= fun2(beta0) 
g= quadl(@funl,0,beta0) -1 
sol = fzero( 四 fun2,3); 
end 


本 例 采 用 了 两 个 嵌 套 函数 ,funl 和 fun2,funl 的 功能 是 建立 积分 表达 式 ,fun2 的 功能 是 
建立 关于 记 的 非 线性 方程 ,由 于 a、e 和 ! 是 已 知 的 ,因此 ,a、e 和 ! 作为 整个 函数 example541 
的 输入 ,实际 应 用 中 给 定 一 组 c、e 和 :! 的 值 就 可 以 求 出 对 应 的 beta0 的 值 。 璧 如 给 定 一 20、 
e 一 0.6 和 1 一 6, 可 以 求解 相应 的 解 如 下 : 


sol = example541(20,0.6,6) 
Sol= 
0.4519 


S.4.2 冉 天 函 数 在 GUI 中 的 应 用 


利用 嵌 套 函数 可 以 方便 共享 变量 的 特点 ,在 编写 GUI 中 的 回调 函数 (callback function) 
时 ,可 以 采用 嵌 套 函数 来 实现 。 下 面 举 一 个 骨 套 函数 在 GUI 中 应 用 的 例子 : 

【 例 5.4-2】〗 用 MATLAB 生成 一 个 如 下 的 三 角形 界面 ,如 图 5. 1 所 示 。 

要 求 ， 

1) 图 上 的 数字 根据 行 数 和 列 数 动态 生成 ,每 一 层 都 比 上 面 大 1。 

2) 在 滚动 条 拖 动 的 时 候 , 会 根据 滚动 条 的 位 置 , 使 三 角形 中 的 数字 变 红 ,最 大 值 使 数字 全 
部 变 为 红色 ,最 小 值 使 得 数字 全 变 为 部 黑色 。 
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本 例 的 代码 如 下 : 
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本 例 生 成 界面 的 思路 是 用 plot 来 画 线 , 用 text 函数 来 填 格 子 。 每 次 移动 滚动 条 后 ,得 到 
当前 滚动 条 的 值 , 根 据 这 个 值 来 判断 究竟 把 哪些 数字 设 成 红色 哪些 设 成 黑色 的 。slider_h 是 
滚动 条 的 句柄 , 它 的 回调 函数 change_color 用 和 嵌 套 函数 来 实现 ,这 样 ,slider_h 对 于 艇 套 函 数 
内 部 来 说 是 可 见 的 ,不 用 采用 额外 的 参数 传递 方式 来 传递 到 回调 函数 内 部 。 


5.4.3 谈 套 函数 在 3D 作 图 中 的 一 个 应 用 


本 例 是 利用 嵌 套 函数 来 表示 3D 作 图 中 所 需要 计算 的 函数 。 当 然 也 可 以 采用 其 他 函数 形 
式 来 实现 ,但 是 采用 嵌 套 函数 相对 来 说 比较 简洁 ,而 且 可 以 少 传递 一 些 参数 。 例 子 如 下 : 
【 例 5.4-3】 画 出 下 列 函 数 的 图 像 ; 


+ee ， NACI 上 
To 一 1.0 一 er 1( > 己 ]|，0 2.0,0 去 2.0 
(ay772) 忌 ( 品 辫 丰 ) 委 2 扫 7 挟 


4=0 


本 例 需要 计算 两 个 求 和 项 ,其 中 最 外 层 要 求 一 个 无 穷 级 数 ,分 析 表 达 式 ,可 以 得 知 ,实际 计 


算 中 ,N 不 必 取 到 无 穷 ,只 要 取 到 30 就 可 以 达到 较 高 的 精度 。 本 例 代码 如 下 : 





运行 下 面 代码 : 


得 到 如 图 5. 2 所 示 图 形 。 
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图 5.2 T(n,m) 的 图 形 


5.4.4 谈 套 函数 表示 待 优 化 的 目标 函数 
本 小 节 以 一 个 有 代表 性 的 例子 来 说 明 嵌 套 函 数 在 表示 待 优化 的 目 标 函 数 方面 的 应 用 。 
【 例 5.4- 4】 已 知 [和 ,r 汉 ]N-[ 权 -一 2 一 区- 求 下 面 表达 式 的 最 小 值 ; 
?= (人 weosdt 一 NOD) +( 站 eeosodt 一 NG 二 (站 coscodt 一 NG) 


其 中 ,mm 在 [0,2] 范 围 内 。 















上述 代码 中 ,目标 函数 即 y 用 谍 套 画 数 ObjecFun 来 表示 ，fminbad 第 一 个 输入 参 数 是 
ObieeFun 的 句柄 ,第 二 、 第 三 个 参数 是 求解 最 小 值 的 范围 。 运 行 后 得 到 结果 如 下 。 
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5.4.5 谈 套 函数 在 表示 微分 方程 方面 的 应 用 


获 套 函数 可 以 方便 地 表示 微分 方程 ,从 而 可 以 方便 地 被 MATLAB 中 求解 微分 方程 的 函 
数 来 调用 。 请 看 下 例 ， 
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【 例 5.4-5S】〗 求 下 面 微分 方程 在 [0,5] 范 围 的 解 : 
3 "十 4y 一 3sin(at) 
其 中 ,a 是 参数 ,初始 条 件 为 :>(0) 一 1,y (0) 一 0。 
本 例 要 想 应 用 MATLAB 的 微分 方程 求解 函数 ode45 求解 ,需要 变 一 下 形式 。 即 变 成 一 
阶 微分 方程 组 的 形式 : 
区 一 xz 
% 一 3sin(at) 一 4 
其 中 ,xy (0 对 应 于 函数 >(b ,而 y% (对 应 于 y (it) 。 
在 实际 应 用 中 ,我 们 希望 将 参数 a 作为 程序 的 一 个 输入 参数 ,这 样 对 于 指定 不 同 的 e, 就 
能 得 到 对 应 的 不 同 的 解 。 利 用 嵌 套 函数 可 以 得 到 如 下 的 求解 程序 : 


function example545(a) 
tspan = [0,5]; #% 变 量 求 解 区 间 
Y0 = [1,0]， # 初 值 
[t, 中 = ode45(@tfys,tspan,Y0) 调 用 ode45 求解 方程 
figurei 
Plot(t,YC:，1)，Kk-)5 # 画 函数 Y(t) 的 曲线 
hold on; 
plot(t,Y(:,2)，k:)3 s% 夯 函数 Y(t) 导 数 的 曲线 
set(gca,' fontsize',12)5 s% 设置 当前 坐标 轴 字 体 大 小 
xlabel(Nitt',' fontsize',16)3 标 注 x 轴 
了 label(N\ity'，fontsize',16); 外 标注 Y 轴 
# 用 嵌 套 函数 定义 微分 方程 组 
function dy = tfys(t,yY) 
dy(l,1) = YC2)5 s% 对 应 于 例子 中 方程 组 第 一 个 方程 
dy(2,1) = 3x#sin(axt) 一 4xyYC1)5 外 对 应 于 例子 中 方程 组 第 二 个 方程 
end 
end 





譬如 , 当 ao 一 6 时 ,运行 example545(6) 得 到 如 图 5. 3 所 示 结 果 图 。 
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图 5.3 求解 结果 图 
有 关 骨 套 函数 的 进一步 应 用 介绍 将 会 在 本 书 的 后 半 部 分 “案例 介绍 "中 穿插 进行 。 这 里 限 
于 篇 幅 就 不 做 进一步 讨论 了 。 
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本 章 将 以 一 些 案例 来 展示 MATLAB 在 求 积分 以 及 积分 方程 方面 的 应 用 。 这 些 例 子 很 多 
都 是 在 各 技术 论坛 被 网 友 频 繁 提问 的 一 些 问题 。 


6.1 业 例 :一 般 区 域 二 重 、 三 重 儿 分 MATLAB 计算 方法 


6.1.1 概 要 


这 里 讨论 的 计算 方法 指 的 是 利用 现 有 的 MATLAB 函数 来 求解 ,而 不 是 根据 具体 的 数值 
计算 方法 来 编写 相应 程序 。 对 于 一 般 区 域 上 的 二 重 积分 , 低 版 本 的 MATLAB 向 来 支持 不 好 ， 
MATLAB 7.X 版 本 之 前 不 能 通过 简单 的 形式 直接 求 取 一 般 区 域 上 的 二 重 积分 ,往往 要 借助 
广泛 使 用 的 NIT 工具 箱 (数值 积 分 工具 箱 ) 来 实现 。 后 来 到 了 MATLAB 7. X 版 本 ， 
MATLAB 引 入 了 匿名 函数 结构 , dblquad 的 被 积 函 数 可 以 是 匿名 函数 的 形式 ,利用 匿名 函数 
结构 ,通过 适当 的 改写 被 积 函数 ,dblquad 可 以 求解 一 般 区 域 上 的 二 重 积 分 。 其 实 这 种 改写 就 
是 将 积分 区 域 表 示 成 逻辑 表达 式 形式 并 与 被 积 函数 相 乘 ,本 质 上 还 是 计算 的 矩形 区 域 的 积分 。 
dblquad 的 帮助 文档 给 出 了 用 dblquad 求 一 般 区 域 上 二 重 积分 的 简单 例子 。 

仔细 分 析 dblquad 的 帮助 文档 中 求 一 般 区 域 二 重 积 分 的 例子 就 会 发 现 , 这 种 办 法 是 把 原 被 
积 函 数 外 推 到 了 一 个 矩形 区 域 上 来 实现 的 ,该 矩形 区 域 包含 了 被 积 区 域 , 在 被 积 区 域 上 ,外 推 函 
数 取 值 和 原 函 数 一 样 ,而 在 矩形 区 域内 被 积 区 域外 的 那 部 分 ,外 推 函数 取 值 都 为 0。 这 样 外 推 本 
数 在 矩形 区 域 上 积分 的 结果 就 等 于 原 被 积 函数 在 被 积 区 域 的 结果 。 这 种 数学 上 简单 的 变换 导致 
的 结果 就 是 , 按 这 种 办 法 计算 量 大 增 ,特别 是 被 积 区 域 非常 不 规则 并 布 满 整 个 矩形 区 域 的 时 候 。 

令 人 高 兴 的 是 ,从 MATLAB R2009a 版 本 起 ,MATLAB 终于 有 了 专门 求解 一 般 区 域 二 重 积 
分 的 函数 一 一 quad2d, 该 函数 采用 的 自 适应 积分 算法 基于 L. F. Shampine 的 文章 ;“Vectorized 
Adaptive Quadrature in MATLAB”(Journal of Computational and Applied Mathematics， 
2008) 。 该 函数 求解 一 般 区 域 二 重 积分 的 效率 要 远 高 于 上 面 提 到 的 dblquad 的 方法 。 关 于 它 
们 的 比较 请 参考 6. 1. 2 节 相 关 部 分 。 

虽然 quad2d 可 以 求解 一 般 区 域 二 重 积分 ,但 还 是 不 能 直接 求解 一 般 区 域 三 重 积分 ,而 
NIT 工具 箱 也 没有 一 般 区 域 三 重 积 分 的 计算 函数 。 

本 案例 的 目的 是 介绍 一 种 在 MATLAB 7.X 版 本 MATLAB 不 限于 R2009a 版 本 ) 里 求 
解 一 般 区 域 二 重 、 三 重 积 分 的 思路 方法 。 


6.1.2 一 般 区 域 二 重 积 分 的 计算 


在 开始 介绍 方法 前 , 先 看 一 下 dblquad 和 quad2d 函数 是 怎样 求解 一 般 区 域 的 二 重 积 分 
的 。 请 看 下 面 的 例子 : 


AAAzun 
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【 例 6.1-1] 求 被 积 函数 fCz,y) 一 V10000 一 二 在 妇 十 史 有 10000 区 域内 的 积分 。 
采用 dblquad 的 方法 ,可 以 写 出 如 下 求解 代码 ， 


tic,yl = dblquad(@(,Y) sqrt(104 一 x. 2). xx 2+Y-2<=104)， 
-100,100, - 100,100 ) ,toc 


运行 结果 如 下 : 


列 = 
2.6667e+ 006 
Elapsed time is 8.326637 seconds . 


采用 quad2d 函数 , 则 代码 如 下 : 


tic,y2 = quad2d(@(xyy) sqrt(10"4 - x."2)，- 100,100,，.. 
四 (x) - sqrt(1024 - x. -2),@(x)sqrt(10-4 - x.-2)),toc 


运行 结果 如 下 : 
22= 
2.6667e+ 006 


Elapsed time is 0.024370 seconds . 


可 见 -quad2d 的 运行 效率 远 远 高 于 dblquad。 
从 例 6. 1 -1 可 以 看 到 ,用 dblquad 求解 一 般 区 域 二 重 、 三 重 积 分 的 思路 方法 ,就 是 将 被 积 


函数 “ 延 拓 ” 到 矩形 或 者 长 方 体 区 域 ,但 是 这 种 方法 不 可 避免 引入 很 多 乘 0 运算 浪费 时 间 。 而 
quad2d 虽然 运行 效率 很 高 ,但 是 MATLAB R2009a 之 前 没有 这 个 函数 。 因 此 ,要 想 在 MATLAB 
2009a 之 前 的 MATLAB 7 版 里 计算 一 般 区 域 二 重 、 三 重 积分 ,就 需要 开辟 新 的 方法 。 新 的 方 
法 是 调用 已 有 的 MATLAB 函数 求解 ,在 求 一 般 区 域 二 重 积分 时 ,运行 效率 和 quad2d 相 比 有 
一 些 差距 ,但 是 相对 于 “ 延 拓 ”函数 的 做 法 ,运行 效率 大 大 提高 了 。 下 面 结合 一 些 简单 例子 来 说 
明 计算 方法 。 


【 例 6.1-2】 计算 下 列 二 重 积分 : 
『 和 国 


1J sin(z) 


这 个 积分 可 以 很 容易 用 符号 积分 算出 结果 ; 


SYyms X 了 让 和 天 

int(int(x*# YY,sin(x) ,cos(x)),1,2) 让 

ans= 

cos(4)/8 一 cos(2)/8 - sin(2)/4+ sin(4)/2 

>> vpa(ans,20) 

ans = ， 
一 0.63541270239994324049 


上 述 结果 可 供 稍 后 的 数值 计算 参考 。 
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如 果 读 者 用 的 是 MATLAB 2009a, 可 以 用 
quad2d(@(x,y) x. * Yr1y2,@(x)sin(x),@(x)cos(x)， absTol',le- 12) 


得 到 上 述 结果 。 

如 果 用 的 不 是 MATLAB 2009a, 那 么 可 以 利用 NIT 工具 箱 里 的 quad2dggen 函数 。 如 果 
既 没 有 NIT 工具 箱 , 用 的 也 不 是 MATLAB 2009a, 该 怎么 办 呢 ? 答案 是 可 以 利用 两 次 quadl 
函数 ,注意 到 quadl 函数 要 求 积分 表达 式 必 须 写 成 向 量化 形式 ,所 以 构造 的 函数 必须 能 接受 向 
量 输入 。 代 码 如 下 : 


function IntDemo 
function fl = myfunl(x) 
fl = zeros(size(x)); 
for k= 1:length(x) 
fl1(k) = quadl(@(Y) x(k) * yysin(x(k))icos(x(k))); 
end 
end 


Y= quadl(@myfunl,1,2) 
end 


myfunl 函数 就 是 构造 的 原始 被 积 函数 对 y 积分 后 的 函数 ,这 时 候 是 关于 x 的 函数 ,要 能 
接受 向 量 形式 的 x 输 入 ,所 以 构造 这 个 函数 的 时 候 考 虑 到 x 是 向 量 的 情况 。 利 用 arrayfun 函 
数 Carrayfun 函数 的 用 法 读者 可 以 参考 2. 4. 2 节 ) 可 以 将 IntDemo 函数 精简 成 一 句 代码 ; 


quad](@(x) arrayfun(@(xx) quadl(@(Y) xocx Yysin(xoc) ,cos(Cxx))yxz) 1,2) 


上 面 这 行 代码 体现 了 用 MATLAB 7.X 求 一 般 区 域 二 重 积分 的 一 般 方法 。 可 以 这 么 理解 
这 句 代 码 :首先 


@(CO arrayfun(@(xx) quad1(@(y) xx x yysin(xxo) vcos(xoc))，x) 
定义 了 一 个 关于 x 的 匿名 函数 , 供 quadl 调用 求 最 外 重 (x 从 1 到 2 的 ) 积 分 ,这 时 候 ,x 对 于 
arrayfun(@ (xxo) quadl(@(y) xocx ysin(xxc) ycos(Cxoc))，x) 
就 是 已 知 的 了 ,而 


@@(zxoo quad](@@(Y) xxx yysin(xx)vcos(xx)) 


定义 的 是 对 于 给 定 的 xx, 求 xx * y 关 于 y 的 积分 函数 ,这 就 相当 于 数学 上 积 完 第 一 重 y 的 积 
分 后 得 到 一 个 关于 xx 的 函数 ,而 


arrayfun((@ (xx) quadl(@@(Y) xx x yysin(xoxc) ,cos(xx)) ,x) 


只 是 对 
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@@(xzo quadl(@(Y) xx wx Y,sin(xoco) ,cos(xx)) 


加 了 一 个 循环 的 壳 , 保 证 “ 积 完 第 一 重 y 的 积分 后 得 到 一 个 关于 xx 的 函数 ”能 够 接受 向 量化 的 
xx 的 输入 ,从 而 能 够 被 quadl 调用 。 有 了 这 个 模板 ,就 可 以 方便 求 其 他 一 般 积分 区 域 ( 上 下 限 
是 函数 ) 形 式 的 二 重 积分 ,例如 ， 

【 例 6. 1-3】 求 下 列 二 重 积分 ， 


三。 sln(y)dydz 


用 quad2d 函数 ,上 面 介绍 的 方法 ,以 及 dblquad 帮助 文档 里 给 的 延 拓 函数 的 方法 得 到 的 
运算 结果 以 及 运行 时 间 情 况 如 下 : 


tic,yl = quad2d(@(x,y) exp(sin(x)).* 1og(Y) ,10,20,@(x)5 xx,@(x)x.-2) ,toc 
tic,y2 = quadl(@(x) arrayfun(@(x) quadl(@(Y) exp(sin(x)). * log(y)，... 
5 * xxX. "2) ,x) ,10,20) ,toc 
tic,yY3 = dblquad(@(x,yY) exp(sin(x)). x* log(yY). * (Y>=5x#xx&y<=x."2),10,20,50,400) ,toc 
了 = 
9.368671342614414e + 003 
Elapsed time is 0.021152 seconds. 
22= 
9.368671342161189e + 003 
Elapsed time is 0.276614 seconds. 
23= 
9.368671498376889e + 003 
RElapsed time is 1.674544 seconds . 


由 此 可 以 看 出 ,本 节 介 绍 的 求 一 般 区 域 二 重 积 分 的 方法 在 MATLAB 2009a 以 外 的 版 本 
中 不 失 为 一 种 好 方法 ,效率 要 明显 高 于 dblquad 帮助 文档 里 推荐 的 做 法 。 更 重要 的 是 ,这 给 求 
解 一 般 区 域 三 重 积分 提供 了 一 种 途径 。 接 下 来 的 章节 ,将 介绍 求 一 般 区 域 三 重 积 分 的 方法 。 


6.1.3 一 般 区 域 三 重 积 分 的 计算 
6. 1. 2 节 给 出 了 一 般 区 域 二 重 积分 计算 的 例子 ， 
quadl(@(x) arrayfun(@(xoo) quadl(@(y) xxx yisin(xao vcosGoo xx，1，2) 
可 以 把 其 写成 模板 , 即 


quadl(@(x) arrayfun(@ (oo quadl(@(Y) 被 积 二 元 函数 fCxxc*y)，Y 
分 上 限 表达 式 92(xoo ) ,zx) ,x 积 分 下 限 值 ,x 积分 上 限 值 ) 


现在 来 看 一 般 区 域 三 重 积分 的 求法 ,有 两 种 思路 :一 种 是 quadl 十 quad2d 函数 ,这 需要 
MATLAB 2009a 来 支持 ; 另 一 种 是 用 三 个 quadl 函数 。 前 者 还 可 细 分 成 先 quad2d 后 quadl， 
以 及 先 quadl 后 quad2d。 可 以 得 到 三 种 模板 ,同时 结合 下 面 简单 的 三 重 积分 为 例 说 明 ， 
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模板 与 相应 实例 如 下 : 
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模板 2: 


模板 3: 


模板 使 用 说 明 :z,y,= 是 积分 变量 ,模板 中 除了 用 语言 描述 的 参量 用 相应 表达 式 替 换 掉 
外 ,其 余 结构 保持 不 变 。 读 者 可 以 运行 这 三 个 实例 ,都 比 用 triplequad 拓展 函数 法 快 得 多 ,而 


且 用 triplequad 拓展 函数 得 到 的 结果 还 不 精确 ,其 结果 如 下 ， 
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Elapsed time is 0.090477 seconds. 
ans= 

178.9301 
Elapsed time is 78.421721 seconds. 


从 上 面 代 码 可 以 看 出 ,如 果 读 者 用 的 是 MATLAB 2009a, 那 么 计算 一 般 区 域 三 重 积分 时 
可 以 用 模板 1,MATLAB 2009a 以 前 的 版 本 (限于 7.X 版 本 ) 可 以 用 模板 3 ,而 模板 2 效率 比较 
低 ( 更 加 频繁 调用 函数 增加 了 系统 开销 )。 以 上 二 重 .三重 积 分 模板 还 可 以 推广 应 用 范围 ,譬如 
计算 如 下 积分 : 
上 ydy 


就 不 能 套用 dblquad 或 者 quad2d, 但 是 用 一 般 二 重 积 分 模板 稍 作 变 形 ,可 以 利用 下 面 代码 求解 ， 


dz 








quadl(@(x) 1./arrayfun(@ (xx)quad1( 四 (Y)y,accyoc2),x),10,100) 


对 于 上 述 方法 的 应 用 ,再 看 一 个 例子 : 
【 例 6.1-4】 求 下 列 二 重 积分 : 


1 _ 1 3 2 
.2 ( Fedz) 9 
上 述 积分 不 是 简单 的 二 重 积 分 ,不 能 用 dblquad 求解 ,只 能 分 两 次 积分 求解 。 利 用 quadl 
和 arrayfun, 可 以 写 出 求解 代码 如 下 : 


fl = quadl(@(Y) 2* Y. x exp( 一 了 .2). * arrayfun(@(Y)quadl(@(x) exp( 一 x. 2). 7 
(Y.2+x.2)，-1,1)， 7)."2,0.2,1) 
f1= 

10.2135 


6.2 娄 例 2: 被 积 男 数 含 有 积分 项 的 一 类 积分 的 一 些 求 解 方法 


这 里 说 的 含有 积分 项 的 被 积 函 数 是 以 下 面 这 个 积分 为 例 : 


六 下 in 人 
V 三 干 殉 


其 中 : 
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广 mn 二 = [7a 一 cos(imz))(1 一 cos(iny))cos(z 红 于 图 )dzdy 


关 曾 必 到 [aa 一 cos(imz))(1 二 cos(iny))sin(ur 十 好 )dzay 
0J0 


从 上 面 的 公式 ,可 以 看 到 原始 被 积 函 数 的 分 子 是 两 个 二 重 积分 的 平方 和 ,整体 来 看 ,上 述 
计算 量 相当 于 一 个 四 重 积分 ,因此 计算 量 会 很 大 。 

本 节 将 介绍 一 系列 的 求解 方法 ,这 些 方法 大 体 按 求解 效果 好 坏 以 及 运行 效率 高 低 排列 。 

首先 最 容易 想到 的 是 网 格 法 ,下 一 小 节 将 以 网 格 法 为 例 , 来 展示 网 格 法 的 具体 步 又。 
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6.2.1 网 格 求解 法 

这 种 方法 的 思路 是 给 定 wx\u 的 积分 上 限 inf_u\inf_v, 将 积分 区 域 前 分 成 nn X nn 个 小 正 
方形 ,每 个 小 正方 形 的 面积 乘 以 被 积 函 数 在 正方 形 中 心 的 值 作为 被 积 函数 在 该 小 区 域 积分 的 
近似 值 。 最 后 在 对 所 有 的 这 些 区 域 求 和 得 到 最 后 的 积分 。nn 越 大 ,分 的 越 细 , 精 度 越 高 ,计算 
时 间 越 长 。 以 下 是 整个 过 程 代 码 : 

【 例 6.2- 1 划分 网 格 法 示例 : 


若 
您 
对 
此 
书 
内 
容 
有 
任 
何 
疑 
问 
可 
以 
和 凭 
在 
线 
时 
流 
趟 
登 
村 
论 
坛 
与 
作 
者 
交 
流 


运行 得 到 如 下 结果 : 
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【说 明 〗 上 述 方 法 将 积分 区 域 划分 成 均匀 的 郊 X 天 个 网 格 , 以 每 个 网 格 中 心 的 函数 值 乘 以 
网 格 的 面积 作为 函数 在 这 个 网 格 上 积分 的 近似 值 , 由 于 内 部 函数 还 要 计算 两 个 二 重 积分 的 平 
方 , 因 此 这 一 方法 要 计算 272 个 二 重 积分 的 平方 。 为 了 保证 精度 ,7 通常 会 较 大 ,所 以 计算 量 
还 是 非常 大 的 。 

下 面 介 绍 另 一 种 方法 ,基于 插值 的 方法 。 


6.2.2 插值 求解 法 


本 方法 是 将 插值 法 和 均匀 划分 网 格 法 结合 起 来 。 在 求 类 似 上 面 那样 复杂 ,计算 量 大 但 连 
续 性 .光滑 性 比较 好 的 函数 在 一 个 区 域 上 的 积分 时 ,首先 粗 划分 积分 区 域 ( 生 成 比较 粗 的 网 
格 ) ,计算 函数 在 粗 网 格 节点 上 的 值 ,然后 在 上 面 网 格 基础 上 细 划 分 网 格 ,根据 粗 网 格 节点 上 的 
函数 值 利 用 interp2 或 者 griddata 函数 插值 生成 细 网 格 节点 上 的 函数 值 , 最 后 再 乘 以 细 网 格 面 
积 并 求 和 得 到 整个 函数 在 积分 区 域 上 的 近似 值 。 以 下 是 以 前 面 提 到 的 的 积分 为 例子 的 代码 ， 
【 例 6.2-2]】 插值 求解 法 示例 : 
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与 6. 2. 1 节 的 方法 对 比如 下 : 
划分 网 格 法 :分 成 25X 25 个 网 格 ,计算 1 250 个 二 重 积分 的 平方 ,所 用 时 间 和 结果 ， 


tic,INT = example6_2_1(40,40,25) ;toc 
了 Elapsed time is 85. 669888 seconds. 
INRT= 

6.8267 


插值 法 : 粗 分 成 15X15 个 网 格 , 计 算 450 个 二 重 积分 的 平方 ,然后 根据 这 225 个 函数 点 插 
值 生成 510X 50 个 函数 值 ,最 后 计算 近似 积分 ,所 用 时 间 和 结果 ， 


tici[INTi,TfI] = example6_2_2(40,40,50,15) ;toc 

了 Elapsed time is 30.476624 seconds . 

INTi = 

6.0241 

【说 明 】 通过 对 比 可 以 看 到 ,插值 法 比划 分 网 格 法 运算 速度 有 了 提高 ,但 是 这 种 插值 没有 
利用 原始 函数 的 梯度 信息 ,是 均匀 插值 ,这 必然 使 得 计算 精度 受到 影响 。 为 此 ,需要 寻求 一 种 
保证 精度 和 速度 的 方法 。 

下 面 介绍 第 三 种 方法 ,基于 RBF 神经 网 络 的 方法 。 
6.2.3 RBF 神经 网 络 盘 近 法 


RBF 神经 网 络 ( 径 向 基 神 经 网 络 ) 是 人 工 神经 网 络 的 一 种 ,有 “局 部 感知 场 ” 的 美誉, 可 以 
任意 逼近 光滑 性 比较 好 的 函数 。 下 面 是 一 个 用 RBF 网 络 对 MATLAB 里 peaks 这 个 二 维 函 
数 逼 近 的 例子 ,读者 可 以 比较 一 下 它 与 插值 法 的 逼近 精度 。 

【 例 6.2-3】〗 RBF 盘 近 peaks 函数 。 

在 命令 窗口 运行 : 


peaks 


命令 ,可 以 得 到 图 6. 1 所 示 的 peaks 函数 图 。 下 面 代码 可 以 比较 RBF 神经 网 络 通 近 peaks 画 
数 的 精度 和 插值 法 逼 近 peaks 函数 的 精度 ; 


Peaks 





图 6.1 ”peaks 函数 图 像 
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[X,Y] = meshgrid(-3:.25:3); 

2 = peaks(X,Y);#% 生成 网 络 训练 样本 

input = [XC : )5YC:D 门 1% 网 络 输入 

output = Z( : )5 #% 网 络 输出 

net = newrb(input,output,0.00001,0.5);*# 生 成 peaks 的 和 逼 近 网 络 
[xT,YI] = meshgrid(-3: .125 : 3)3 

Znet = sim(net,[XI( : )5YIC: 门 )?g 网 络 给 出 的 peaks 函数 值 
Znet = reshape(Znetsy49,49); 

Zpeak = peaks(XI,YI);% 真实 的 peaks 函数 值 

errl = abs(Znet - Zpeak); #% 网 络 逼 近 值 和 真实 值 的 绝对 误差 
Zinter = interp2(X,Y,Z,XI,YI); sg 插值 给 出 的 peaks 函数 值 

err2 = abs(Zinter - Zpeak);#% 揪 值 鼻 近 值 和 真实 值 的 绝对 误差 
disp([ RBF 网 络 逼 近 的 绝对 误差 和 为 :num2str(sum(errl( : )))]) 
disp([ 插 值 逼近 的 绝对 误差 和 为 :num2str(Csum(Cerr2( : )))]) 


运行 上 述 代 码 ,得 到 如 下 结果 : 


RBF 网 络 各 近 的 绝对 误差 和 为 :5.7598 
插值 逼近 的 绝对 误差 和 为 :66.0807 


可 见 ,RBF 神经 网 络 的 逼近 能 力 大 大 高 于 插值 法 的 逼近 能 力 。 如 果 利 用 RBF 神经 网 络 
来 逼近 本 案例 开始 提出 的 那个 复杂 积分 ,那么 可 以 比 插值 法 提高 精度 ,同时 速度 不 至 于 受 太 大 
影响 。 相 应 的 代码 如 下 : 

【 例 6.2-4】〗 RBF 神经 网 络 通 近 法 。 


function [INT,TfInet] = rbf_calc(inf_uinf_vnn) 
s#% inf_uu 无 穷 上 限 的 近似 
#% inf_v,v 无 穷 上 限 的 近似 ， 
# nnyuvv 积分 限 区 间 的 等 分 个 数 
[ur,VvI] = meshgrid(linspace(0,inf unn+ 1),linspace(0,inf_vynn+1))5 
UI=(UICL: end-1,1: end-1)+UI2 :end,2: end))/2; 
VvI=(VIGL: end-1l,1:end-1)+VIC2:end,2 :end))/2;% 生 成 mmx mm 网 格 的 中 心 点 
[o, 四 = meshgrid(linspace(UI(1,1),UI(1yend) ,nn/1.5),linspace(VI(1y1)yVICend'1)， 
nn/1.5));% 生 成 网 络 训练 样本 网 格 ,样本 网 格 均匀 分 布 在 mn* nn 网 格 区 域内 ,密度 为 UT'VI 
外 网 格 的 1/1.5 
TE = zeros(size(U)); 
for k= 1:length(TE) "2 
TE(k) = TE_Integrand( U(k) ,VCk)); 
end 入 
外 训练 网 络 并 给 出 足够 多 的 Tf_Integrand 函数 点 并 计算 积分 
input=[UC:D)3V(C: DO 门 1 网 络 输入 
output =TfE(: )5g 网 络 输出 “ 
net = newrb(input,output,0.00001,3x inf_u/nn); 全 全 芝 汪 由 和 
TtInet = sin(net,[UI( : )5VIC : 门 ); 负 网 络 给 出 的 函数 值 
TfInet = reshape(TfInet,nnynn); 
INT= TfInetx inf_ux inf_v/(nnr2); 
INT= sum(INT( : ))， 
function z = Tf_IntegrandCuyv) 





6 积分 以 及 积分 方程 二 
一 -00 [0 


各 =1; 
mn=15 
外 王 】5 
b=1s 
Jm=2xmxpi/as 
jkn=2*nxrpi/b; 
f_rel = @(x,y) (1 -cos(kmx x)). * (1~ cos(jn xy))，# cos(u. 关 区 十 了 类 ; 
f_ing= @(x,y) (1 一 cos(kmxx)). x (1-cos(knx 只) .wx sinCu x 区 + 了 关 Y) 3 
tmp_rel = dblquad(f_rel，0,ay， 0,b); 
tmp_img = dblquad(f_img,，0,a， 0,D， 
Zz= (tmp_rel, 2 + tmp_img.”2)./sqrt(u."2+v.2); 
end 
end 


以 下 是 RBF 神经 网 络 和 逼 近 法 同 第 一 种 网 格 划分 法 的 对 比 : 


tic,INT = example6_2_1(40,40,30) ;toc 

Elapsed time is 114.169028seconds. 

>> INT 

INT = 

6.9354 

>> tic,[INTnet,TfInet] = rbf_calc(40,40,30)itoc 

NENWNRB，neurons = 0，MSE = 0. 00315257 

NEWRB，neurons = 25，MSE = 0. 000117715 

NEWRB，neurons = 50，MSE = 1. 82648e - 005 

Elapsed time is 50.255045 seconds . 

>> INTnet 

INTnet = 

7.0136 

从 对 比 结果 可 以 看 出 RBF 神经 网 络 逼 近 法 从 精度 和 速度 上 都 兼顾 了 ! 事实 上 ,训练 好 网 
络 后 ,完全 可 以 更 加 多 地 细 分 网 格 ,因为 net 是 Tf_Integrand 函数 的 近似 ,给 定 一 组 特定 的 (u， 
v) ,用 sim(Cnet,[u;v]) 可 以 非常 迅速 求 出 Tf_Integrand 函数 的 近似 值 。 这 样 在 求 最 后 的 结果 
时 就 不 用 担心 网 格 太 密 的 情况 下 计算 量 大 了 。 

【说 明 】〗 被 积 函数 Tf_Integrand 是 关于 uyv 的 二 元 函数 ,只 不 过 这 个 函数 含有 两 个 二 重 
积分 的 平方 ,很 复杂 。 因 此 ,上 述 三 种 方法 都 是 基于 积分 的 基本 定义 来 计算 的 , 即 细 分 积分 区 
域 , 每 个 小 积分 区 域 的 面积 乘 以 该 区 域 上 的 函数 值 (面积 足够 小 的 话 可 以 认为 该 区 域 函数 值 与 
面积 一 致 ) 然 后 再 求 和 。 第 一 种 方法 的 思想 就 是 ,网 格 化 积分 区 域 后 直接 计算 Tf_Integrand 
函数 在 各 个 网 格 中 心 的 函数 值 作为 该 网 格 区 域 的 函数 值 , 然 后 乘 以 各 个 网 格 面积 并 求 和 作为 
积分 值 的 近似 。 因 此 这 种 方法 随 着 积分 区 域 的 扩大 ， 如 果 保 证 精度 的 话 计 算 量 会 非常 大 。 

第 二 种 方法 是 用 插值 的 方法 去 近似 被 积 函数 Tf_Integrand, 只 需要 计算 出 Tf_Integrand 
在 一 些 格 点 上 的 值 , 剩 下 的 格 点 上 的 函数 值 插值 得 出 。 这 种 方法 精度 很 有 限 。 

第 三 种 方法 是 用 RBF 神经 网 络 去 近似 被 积 函 数 Tf_Jntegrand, 也 只 需 给 出 Tf_ Integrand 
在 一 些 格 点 上 的 值 , 剩 下 的 格 点 上 的 函数 值 由 近似 网 络 给 出 。 RBF 神经 网 络 各 近 函数 的 能 力 
很 高 ,因此 ,该 方法 优 于 第 二 种 方法 。 
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各 种 数值 积分 的 基本 思想 都 是 用 简单 函数 近似 代替 被 积 函 数 , 所 谓 简单 ,就 是 能 够 非常 方 
便 快 速 地 求 出 函数 值 。 原 题 中 Tf_Integrand 这 个 函数 很 复杂 ,之 所 以 复杂 是 因为 计算 量 很 
大 ,为 了 得 到 (uvv) 上 的 函数 值 , 要 付出 计算 两 个 二 重 积分 的 平方 的 代价 ! 这 上 比 那 些 由 初等 函 
数 复 合 而 成 的 函数 复杂 得 多 。 

现在 第 三 种 方法 已 经 用 RBF 神经 网 络 逼 近 原 函数 了 , 接 下 来 就 是 如 何 利 用 通 近 好 的 网 络 
采取 有 效 的 积分 方法 (不 是 简单 地 用 面积 乘 以 函数 值 ) 来 计算 积分 。 因 此 可 以 用 dblquad 函数 
调用 网 络 来 实现 ,这 就 是 第 四 种 方法 。 


6.2.4 dblquad 调用 RBF 神经 网 络 法 


这 种 方法 是 将 训练 好 的 RBF 神经 网 络 作为 被 积 函数 的 近似 函数 来 调用 。 具 体 实现 见 下 
面 例子 : 
【 例 6.2-S】 dblquad 函数 调用 RBF 神经 网 络 法 : 


function INT = rbf_dblquad(inf _u,inf_v,nn) 
% inf_uu 无 穷 上 限 的 近似 
s% inf_ vv 无 穷 上 限 的 近似 ， 
# nnyuyv 积分 限 区 间 的 等 分 个 数 
[ur,VI] = meshgrid(linspace(0,inf_uynn+1),1linspace(0,inf_ v,nn+1l)); 
UI=(UICL :end-1,1: end-1)+UI(C2 :end,2 :end))125 
VI=(CVIG :end-1l,1:end-1)+VI2 :end,2 :end))/23% 生 成 nnx nn 网 格 的 中 心 点 
[u,W] = meshgrid(linspace(UI(1,1),UI(lv,end) ,nn/1.5),linspace(VI(1,1),VICend,1)，.. 
nn/1.5));# 生 成 网 络 训练 样本 网 格 ,样本 网 格 均匀 分 布 在 nn * nn 网 格 区 域内 ,密度 为 UIT,VI 
外 网 格 的 171.5 
TE = zeros(size(U)); 
for k= 1 : length(Tf) “2 
TE(kc) = TE_Integrand( U(Ck) ,VCkc) ) 
end 
外 训练 网 络 并 给 出 足够 多 的 TE_Integrand 函数 点 并 计算 积分 
input=[U(C: )5VC: 7 门 ;g 网 络 输入 
output= Tf( : )3 sg 网 络 输出 
met = newrb(inputyoutput,0. 00001,3* inf_u/nn); 当 生成 青 近 网 络 
INT = dblquad(@(u,v) sim(net,[u( : )3vw ones(size(u( : )))]),0,inf_uy0yinf_v)， 
function z = Tf_Integrand(uyv) 
m=1; 
了 = If 
已 =1# 
b=1l; 
Jm=2#xm#pi/as 
kn=2xnxpi/b; 0 人 
f_rel = @(xyy) (1- cos(kmx#xx)). * (1-cos 人 (nx 人). xcos(u. #X+V#yi 02- 
f_img= @(x,7) (1 一 cos(m#x))， x (1 一 cos(kn#y))，* sinCu xxX+V xD 
tmp_rel = dblquad(f_rel，0,a，0,b); 
tmp_img = dblquad(f_img，0,a，0,b); 
z= (tmp_rel. 2 + tmp_img.”2)./sqrt(u. “2+v. 2) 
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下 面 是 该 方法 同 6. 2. 3 节 中 RBF 神经 网 络 逼 近 法 的 对 比 ， 


tic,[INTnet ,TfInet] = rbf_calc(40,40,30) itoc 
NENRB，neurons = 0，MSE = 0.00315257 
NENRB，neurons = 25，MSE = 0. 000117715 
NEWRB，neurons = 50，MSE = 1.82648e-- 005 
Elapsed time is 49.841527 seconds. 
>> INRTnet 
INTnet = 

7.0517 


tic,INT = rbf_dblquad(40,40,15) ;INT,toc 
NEWRB，neurons = 0， = 0.0022636 
NEWRB，neurons = 25，MSE = 2.70421le - 005 
INT = 

6.9604 
了 Elapsed time is 40.577387 seconds. 


【说 明 】〗 需要 注意 的 是 ,Tf_Integrand 函数 在 (0,0) 点 是 奇异 的 ,不 能 选取 (0,0) 点 作为 
训练 样本 ,限于 神经 网 络 外 推 能 力 的 有 限 性 ,在 (0,0) 点 附近 ,神经 网 络 法 给 出 的 值 存在 误差， 
这 些 误差 会 造成 最 后 的 积分 误差 。 

到 目前 为 止 ,上 述 方法 都 是 通过 拟 合 或 者 逼近 原 函 数 的 方法 来 实现 积分 。 由 于 选取 的 点 
有 限 , 所 以 不 可 避免 地 造成 了 计算 结果 偏离 真实 值 较 远 。 能 否 直接 从 原始 本 数 出 发 来 求解 呢 ? 
即 通过 现 有 的 MATLAB 求 积分 的 各 种 函数 调用 来 实现 原 积 分 问题 的 求解 呢 ? 答案 是 肯定 
的 ,下 面 即将 给 出 的 两 种 方法 就 是 这 样 做 的 。 


6.2.5 dblquad 十 arrayfun 方法 


参考 6. 1 节 中 介绍 的 求 一 般 区 域 积分 的 方法 可 以 得 到 第 五 种 方法 , 即 dblquad 函数 十 ar- 
rayfun 函数 的 方法 。 通 过 设置 外 层 dblquad 和 内 层 dblquad 的 精度 以 及 arrayfun 函数 精简 代 
码 ,速度 和 精度 又 较 之 第 四 种 方法 有 了 提高 。 代 码 如 下 ， 

【 例 6.2- 6】 dblquad 函数 十 arrayfun 函数 的 方法 ， 


function fx = CalcInteDemo(OutTol,InTol) 
% OutTol, 外 层 dblquad 精度 

s$ InTol, 内 层 dblquad 精度 

下 =1; 

n=1i 

Ba=1; 

b=1; 

Jam=2#Rx#Dpi/ai 

jn=2xnxpi/by 


function z= Tf_Integrand(uyv) 
和 rel= @(x,y) (1 一 cos(km#x)).#(1- cos(knxy)).#cos(u  # 六 二 Wi O 
于 _ing= @(x,Y) (1 一 cos(km wx x)).x (1 -cos(knx 8)). * sin(u  % x+ 了 % 了 )3 


* 菌 沿 闪 六 煌 站 出 生 二 9SVTIVIN 淹 看 机 这 岂 蛤 评 凉 天 本- 配 源 言 本 吉明 孔 站 味 尝 演讲 
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下 面 给 出 和 第 四 种 方法 也 就 是 6. 2. 4 节 中 介绍 的 方法 的 对 比 : 









， 攻 内 疾 广 灿 站 由 贱 乓 9VTIVJN 淘 由 市 访 岂 洽 计 六 天 可。 瑟 尖 言 订 壕 笠 也 节 革 竺 沪 淋 


从 上 面 的 对 比 可 以 明显 看 出 ,第 五 种 方法 无 论 是 从 速度 上 还 是 从 精度 上 都 完全 比 前 面 的 
四 种 方法 要 好 ,在 实际 应 用 中 是 有 效 的 求解 方法 。 


6.2.6 quad2d 十 arrayfun 方法 


第 五 种 方法 已 经 比 前 面 四 种 方法 的 精度 和 速度 都 要 好 多 了 。 6 天 畏 属 2) 
原始 积分 在 km 较 大 的 时 候 是 震荡 积分 ,而 dblquad 里 面 默认 的 是 用 quad 狼人 
分 ,quad 的 算法 是 自 适 应 simpson 方法 , 它 不 大 适用 于 震 萝 函 数 积分 。 “。 

那 如 何 有 效 求解 震荡 型 的 积分 呢 ? 如 果 读 者 用 的 是 MATLAB R2009a 或 者 更 新 的 版 本 ， 
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那么 可 以 有 两 种 途径 :一 维 积分 用 quadgk, 二 维 积分 用 quad2d。 

在 开始 介绍 第 六 种 方法 之 前 , 先 看 一 下 分 别 用 quadgk,quadl,quad 求 震荡 函数 积分 的 精 
度 和 速度 差异 

【 例 6.2-7】 比较 quadgk,quadl,quad 求 震荡 函数 积分 的 精度 和 速度 差异 。 


ticyquadgk(@(x) sin(50 * x). * cos(50 * x),0,20) ,toc 
ticiquad1(@@(x) sin(50 * x). * cos(50 * x) ,0,20) ,toc 
ticiquad(@(x) sin(50 x x). * cos(50 * x) ,0,20) ,toc 
ans = 

0.006837297745507 
Elapsed time is 0.006194 seconds. 
Warning: Maximum function count exceeded; singularity likely. 
> In quadl at 104 
ans = 

2.043885879186874 
了 Elapsed time is 0. 097481 seconds. 
ans= 

0. 006836670520123 
了 lapsed time is 0.101185 seconds. 


可 见 只 有 quadgk 计算 得 又 快 又 准 。 对 于 二 维 震 荡 函 数 积分 ,可 以 利用 quad2d 来 计算 ， 
当然 也 可 以 利用 quadgk 十 arrayfun 来 计算 (效率 不 如 quad2d 高 ,但 远 比 dblquad 高 ) ,请 
例 6.2-8: 

【 例 6.2-8】 比较 dblquad 和 quadgk 十 arrayfun, 和 quad2d 求 二 维 震 功 函 数 积分 的 速度 
和 精度 差异 。 


札 郊 言 永 寺 符 互 落 庄 党 防 讲 


ticidblquad(@ (xy) sin(10 * x). x cos(10*Y),0,5,0,5,1le- 8),toc 
ticigquadgk(@(x)arrayfun(@(x) quadgk(@(Y) sin(10 x x).，x* cos(10x 兄 ,0,5，abstol'... 
le 一 8),x),0,5，abstol' ,le- 8),toc 
ticiquad2d(@(x,y) sin(10* x). * cos(10* Y),0,5,0,5,abstol',le-8),toc 
ans = 
一 9.192040105538080e 一 005 
Elapsed time is 2.395602 seconds. 
ans = 
一 9.192033149052741le- 005 
Elapsed time is 0.155306 seconds. 
ans= 
一 9.192035999367503e 一 005 
Elapsed time is 0.097786 seconds. 


从 上 面 的 结果 看 , quad2d 的 效率 最 高 , quadgk 虽然 效率 不 如 quad2d 高 ,但 远 远 比 ED 
dblquad 高 。 回 到 本 案例 开始 提出 的 那个 积分 上 ,得 到 第 六 种 解法 代码 如 下 :( 当 然 还 可 以 利 
用 quadgk 写 出 第 七 种 ,但 由 于 quad2d 效率 很 高 ,这 里 就 不 写 了 ,有 兴趣 的 读者 可 以 自己 实现 。 
值得 说 明 的 是 quad2d 通过 设置 "Singular 为 false 还 可 以 求解 一 些 非 震荡 光滑 函数 。.) 

【 例 6.2- 9】〗 quad2d 十 arrayfun 方法 。 


* 忒 尚 章 广 灿 条 十 片 十 SVTIVIN 兆 由 市 注册 小 诗 泳 天 村- 
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function fx = CalcInteDemo2(OutTol,InTol) 
了 = 
了 = 1 
得 呈 卫 
b=1; 
km=2#m#pi/ar 
Jjkn=2xnxpi/br 
function z = Tf_IntegrandCuyv) 
和 rel = @@(x,yY) (1 一 cos(jmxx)). * (1 一 cos(knx 了)). xcos(u. #X+V %Y); 
E_inmg= @(x,y) (1 一 cos(kmx x)). x* (1 一 cos(knxy)). xsin(a. #xXx+V. 关 Y)3 
tmp_rel = quad2d(f_rel，0,a，0,b, abstol',InTol)，; 
tmp_img = quad2d(f_img，0,a， 0,by'abstol',InTol)， 
z=《〔(tmp_rel. ”2 + tmp_img. ”2)./sqrt(u. ”2+v. 2)5 
end 
fx = quad2d(@(uyv) arrayfun(@(uyv) Tf_Integrand(uyv) ,uyv),0，40，0，40，... 
"abstol ,OutTol); 
end 


和 第 五 种 方法 的 对 比如 下 : 


ticffx = CalcInteDemo2(0.001,0.0001) ,toc 
和 Ex = 
7.475217656951065 
Elapsed time is 12.362713 seconds. 
>> ticffx = CalcInteDemo(0.001,0.0001) ,toc 
Warning: Minimum step size reached; singularity possible. 
> In quad at 103 
In dblquad > innerintegral at 84 
In quad at 77 
In dblquad at 60 
In CalcInteDemo at 17 
fx = 
芋 468956689792021 
Elapsed time is 24.572359 seconds. 


可 以 看 出 ,对 于 本 案例 ,第 六 种 方法 给 出 的 值 最 可 靠 ,精度 最 好 ,速度 最 快 。 


6.3 归 例 3: 一 般 区 域 几 重 积 分 


通过 上 面 两 个 案例 ,一般 区 域 上 的 一 重 、 二 重 、 三 重 积分 都 已 经 讨论 过 了 。 接 下 来 一 个 自 
然 的 问题 就 是 如 何 求解 一 般 区 域 上 的 重 积分 ? 

本 案例 就 是 讨论 一 般 区 域 ” 重 积 分 的 计算 方法 。 这 里 讨论 的 ”理论 上 讲 不 限 大 小 ,但 是 
鉴于 重 积分 的 特点 ,如 果 积 分 重 数 高 ,同时 积分 区 域 范围 较 大 ,数值 积分 计算 量 十 分 巨大 ,如 
果 各 重 积分 原 函 数 都 能 显 式 表示 ,对 于 多 重 积分 ,采用 符号 积分 是 第 一 选择 。 当 只 能 采用 数值 
积分 的 时 候 ,很 多 时 候 四 重 ,五 重 积分 计算 时 间 都 较 长 。 所 以 虽说 不 限制 疡 的 大 小 ,但 是 能 实 
际 计算 的 重 积分 ,” 一 般 不 会 很 大 。 

下 面 介绍 求解 一 般 区 域 ” 重 积分 的 函数 一 一 nJIntegrate。 需 要 说 明 的 是 nIntegrate 函数 
是 调用 现成 的 MATLAB 函数 来 编写 重 积分 ,因此 当 积 分 重 数 高 的 时 候 , 存 在 着 大 量 的 函数 
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一 一 一 一- 一 


调用 ,因此 整体 运行 效率 会 受到 影响 。 但 读者 可 以 从 该 函数 中 加 深 对 本 章 前 面 两 个 案例 的 理 
解 ,因为 本 案例 在 内 容 上 可 以 看 作 是 前 面 两 个 案例 的 推广 与 递 进 。 
该 函数 的 调用 格式 如 下 : 


王 = nIntegrate(fun,lowyup) 


了 为 郴 数 的 返回 值 , 是 重 积分 的 积分 结果 。 

fun 是 被 积 函 数字 符 串 形式 ,不 同 的 变量 依次 以 zl,z2,…,zn 表示 (需要 注意 的 是 :必须 
以 xl,z2,…，,zm 这 种 形式 表示 , 像 1,y2,…,yn 或 是 其 他 表示 方法 都 不 行 ) 。 

low 和 up 都 是 长 度 为 的 cell 数组 ,low 存储 从 外 到 内 各 重 积分 的 积分 下 限 函 数 ,up 存 
储 从 外 到 内 各 重 积分 的 积分 上 限 函 数 ( 都 是 字符 串 形式 )。low 和 up 内 的 函数 表示 都 要 遵循 
一 些 原 则 ,这些 原则 在 程序 注释 里 进行 了 说 明 ,后 续 例 子 中 将 进一步 详细 说 明 。 

下 面 给 出 nIntegrate 函数 的 代码 : 


function 上 = nIntegrate(fun,lowyup) 
#%f, 返回 值 ,n 重 积分 积分 结果 
# fun， 是 被 积 函 数字 符 串 形式 ; 
$% low 存储 从 外 到 内 各 重 积分 的 积分 下 限 函 数 ; ) 
% up 存储 从 外 到 内 各 重 积分 的 积分 上 限 函 数 (都 是 字符 串 形式 ) 
包 为 了 保证 函数 正常 运行 ,low 和 up 内 的 函数 遵循 如 下 原则 : 设 积 分 重 数 为 m* 最 内 层 到 最 外 层 的 
$% 积分 变量 依次 以 秋 , . .x2,xl 来 表示 (只 能 以 这 样 顺序 ,其 他 顺序 或 者 别 的 字母 表示 变量 都 不 可 以 ) 
包 最 内 层 的 上 下 限 函 数 不 管 是 不 是 关于 xCm- 1) 的 函数 都 要 求 xm - 1) 必 须 出 现 ,不 是 其 函数 时 
$ 可 以 写成 "+ 0* xCm- 1)" 等 形式 ,依次 类 推 次 内 层 要 求 xm - 2) 必 须要 出 现 等 等 ,一 直到 次 外 层 
# 要求 变量 xl 出 现 , 最 外 层 才 是 常数 。 
N= length(low); # 判断 积分 重 数 
fun = vectorize(Cfun); # 将 被 积 函数 写成 点 乘 形式 ,方便 数值 积分 函数 调用 
迁 verLessThan( MATLRB','7.8'") #% 判断 当前 运行 该 函数 的 MhTLMB 版 本 是 否 低 于 7.8 即 R2009a 

g# 低 于 7.8 调用 GenerateExpr_quadl 函数 递归 构造 求解 表达 式 

expr = GenerateExpr_quad]l(N) ; 
else %7.8 或 者 以 后 的 版 本 调用 GenerateExpr_quad2d 函数 递归 构造 求解 表达 式 

证 mod(N,2) ==0 

expr = GenerateExpr_quad2d(N); 
else 
expr = [ quadl(@(xl) arrayfun(@(xl) 
GenerateExpr_quad2d(N 一 1)，,xl)，,low{1) ,upfl)，) 门 ， 


end 
多 
#% 主要 利用 quadl 函数 递归 构造 求解 表达 式 ,适用 于 R2009a 以 前 的 版 本 
2 二 二 和 本 
function expr = GenerateExpr_quadl(n) 
证 n==1 
expr = 已 quadl(@(x'num2str(N),) fun ,lowfN} up{N},)]， 
else 
expr= [quadl(@(x',num2str(N-n+1),) arrayfun(@(x' 
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函数 可 运行 于 MATLAB 7.0 以 后 的 版 本 ,其 中 又 以 MATLAB R2009a 为 界 设置 了 不 同 


的 求解 方法 。 如 果 用 的 是 MATLAB 2009a, 那 么 速度 明显 会 比 MATLAB 2009a 以 前 的 版 本 
快 很 多 。 

现 举例 说 明 函 数 用 法 。 

【 例 6.3-1] 计算 如 下 积分 : 


『 人 deea)aajaa)a 


上 述 四 重 积 分 ,构造 输入 变量 并 求解 ,代码 如 下 : 
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由 此 可 见 ,nIntegrate 函数 求解 出 的 结果 和 符号 计算 得 到 的 结果 是 一 样 的 。 
【 例 6.3-2〗 计算 如 下 积分 : 


(六 (人 aramadzs )dzs )dz， 


对 于 上 述 积分 ,构造 输入 变量 如 下 ， 


然后 按 { 一 nIntegrate(fun,low,up) 调 用 即 可 。 积 分 结果 如 下 ， 





[全 6.3 - 3】 计算 如 下 四 重 积分 ， 
局 攻 (| (全 VanGn) 二 sin( 任 )dzljdz jdzsjdm 


1 


求解 上 述 积分 的 代码 如 下 : 


* 洲 沿 冰 六 煌 站 环 生 二 SGYTIVIN 光 由 市 沪 滞 选 计 六 天 村。 西 淹 言 术 寺 调 也 贞 导演 陀 洒 





【 例 6.3-4】〗 计算 如 下 五 重 积 分 : 
[ua ea 7 da da 人 


9 expCzl 212 《CaiHsinCzz 2212 Cami+za ?12 
一 三 GinGnem(n vi 诸 mr)t 
, 隶 解 上 述 积分 的 代码 如 下 : 


AN/ 


互 产 言 训 尖 入 互 坝 导 等 沪 齐 
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fun5 = "sin(xl x exp(x2 # SGrt(x3))) + x4nx5 

up5= { 1"，exp(xl) "xl+sin(x2) xl+x3 2x#x4 

low5 = {"0' exp(xl)/2' xl1/2 + sin(x2)/2" xl1/2+ x3/12'x4 
三 = nIntegrate(fun5 ,1Iow5,up5) , 


fun5 = 
Sin(xl # exp(x2 x* Sqrt(x3) )) + x4"x5 
up5 = 
二 "exp(xl)》 "xl + sin(Cx2) "x1L+x3" 2xX4 7 


low5 = 
Columns 1 through 4 
"0' "exp(xl)/2' 'xl/2+ sin(x2)/2! xl/2+x3121 
Column 5 
7 
于 = 
5.7981 


需要 说 明 的 是 , 随 着 积分 重 数 的 增加 ,大 量 函 数 调用 随 之 发 生 ,计算 量 也 会 急剧 增加 , 因 
此 ,上 述 求解 过 程 会 比较 费时 间 ,在 现实 的 计算 时 间 内 ,能 够 以 比较 高 的 精度 求解 的 积分 重 数 


不 会 太 多 。 但 上 述 介绍 的 方法 在 很 多 时 候 还 是 能 够 方便 快捷 的 求 出 常见 的 一 些 维 数 不 太 高 的 
多 重 积 分 的 解 的 。 


6.4 蛇 例 4: 蒙 特 卡 治 法 计算 严重 积分 


6.4.1 概 述 


在 6. 3 节 已 经 看 到 ,对 于 一 些 积 分 重 数 比较 高 的 积分 ,如 果 再 按照 传统 方法 进行 计算 的 
话 ,运算 量 会 非常 大 ,求解 时 间 随 着 重 数 的 增加 而 迅速 增加 。6. 3 节 虽 然 给 出 了 一 般 区 域 ” 重 
积分 的 通用 程序 ,但 是 在 实际 计算 中 ,不 会 很 大 ,一 般 ” 超 过 5 后 ,求解 时 间 就 会 长 到 无 法 接 
受 。 对 于 更 高 维 的 积分 ,一 个 非常 有 效 的 求解 方法 就 是 蒙特 卡 洛 积分 法 。 

蒙特 卡 洛 方法 又 称 随机 抽样 法 或 统计 试验 方法 , 它 用 于 求 积 分 时 ,与 积分 重 数 无 关 , 这 一 
点 非常 重要 。 虽 然 四 维 以 下 的 积分 用 蒙特 卡 洛 法 效率 可 能 不 如 传统 的 一 些 数 值 积 分 方法 ,但 
是 维 数 高 的 时 候 ,蒙特 卡 洛 法 比 传统 方法 要 有 效 得 多 ,而 且 实 现 起 来 也 非常 容易 。 可 以 说 , 计 
算 高 维 积分 是 蒙特 卡 洛 方法 最 成 功 和 典型 的 应 用 。 

实际 应 用 中 ,有 多 种 蒙特 卡 洛 方法 可 以 计算 重 积 分 ,这 里 介绍 基本 的 蒙特 卡 洛 法 和 等 分 
布 序列 的 蒙特 卡 洛 法 。 


6.4.2 基本 的 蒙特 卡 洛 积分 法 
设 D 为 维 空间 R* 的 一 个 区 域 ,F(z)E DCR*-~~>R, 区 域 D 上 的 重 积分 用 下 式 表示 ， 
TI= | rco)dt 


可 以 被 认为 等 于 区 域 了 的 测度 乘 以 函数 的 期 望 。 基 本 的 蒙特 卡 洛 法 就 是 找 一 个 超 立 方 体 
(测度 已 知 ,为 Mec) 包 含 区 域 卫 ,在 了 内 随机 生成 z(z 一 般 足 够 大 ) 个 均匀 分 布 的 点 ,统计 落 人 
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区 域 只 的 点 ,假设 有 闷 个 , 则 区 域 刀 的 测度 





ra 
函数 /的 期 望 
< 
7 一 六 227 GD 
从 而 有 


这 就 是 计算 重 积分 的 基本 的 蒙特 卡 洛 法 。 可 以 看 出 ,该 方法 实现 起 来 很 方便 。 下 面 结合 例子 
来 说 明 该 方法 。 
【 例 6.4- 1 用 基本 的 蒙特 卡 洛 法 计算 例 6. 3 - 1 中 的 积分 ， 


人 直人 ar)Jan)an)an 
这 个 四 重 积分 在 例 6. 3 - 1 中 已 经 用 nIntegrate 函数 得 到 结果 为 :1. 069 397 608 859 771, 用 
基本 的 蒙特 卡 洛 法 求解 如 下 ， 








0 3 
求 出 的 结果 和 nIntegrate 求 出 的 结果 相差 不 大 。 
接 下 来 再 看 不 规则 区 域 上 的 多 重 积分 的 蒙特 卡 洛 解法 。 
【 例 6.4-2】 计算 如 下 积分 : 


[人 (amanjan)an 


在 6. 3 节 , 该 积分 已 经 计算 了 ,结果 为 179. 296 9, 用 蒙特 卡 洛 法 求解 代码 如 下 : 
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6.4.3 等 分 布 序列 的 蒙特 卡 洛 法 


在 区 间 [a, 妇 中 的 一 个 (确定 性 ) 点 列 zi ,zz，…，, 若 对 所 有 的 有 界 黎 曼 (Riemann) 可 积 函 数 
7(z), 均 有 





im 2 结 * 袜 fcz)= rzdz 


则 称 该 点 列 在 [a, 所 中 是 等 分 布 的 。 令 (6) 表 示 的 小 数 部 分 , 即 (6) 一 一 [6, 这 里 [ 打 表 示 
不 超过 # 的 最 大 整数 。 于 是 可 以 引入 下 面 的 定理 ， 
定理 6.1 若 0 为 一 个 无 理 数 , 则 数列 为 
一 (10)， 寻 一 1,2,… 
在 [0,1] 中 是 等 分 布 的 。 
定理 证 明 从 略 , 有 兴趣 读者 可 以 参考 文献 [25] 。 
对 于 一 般 的 区 间 [e, 妇 ,可 以 令 一 z (2 一 a) 十 a 来 得 到 [a, 妇 中 等 分 布 的 点 列 。 对 于 


重 积分 工 一 攻 丰 (b)db ,一 般 是 挑选 个 对 有 理 数 线性 对 立 的 无 理 数 0: ,0 ，…'0,, 来 得 到 包含 


积分 区 域 D, 的 超 长 方 体内 的 均匀 分 布 的 点 列 
也, 一 ((nb ) (一 al) 十 al, (nbs ) (bs 一 az ) 十 az， (Cabg.)(0 一 as) 十 a) 
其 中 ,[ai ,2 ] 是 包含 积分 区 域 的 超 长 方 体 的 第 ii 一 1,2,…,s) 维 边 长 。 无 理 数 对 有 理 数 线性 
独立 是 指 对 wEQ,j 王 1,2,…','s* 不 全 为 0, 有 
ol 十 ab 十 … 十 ac0, 天 0 
这 样 ,可 以 得 到 用 等 分 布 序列 蒙特 卡 洛 法 计算 的 积分 的 近似 值 : 


西关 言 记 吉 轴 互 冰球 尘 沪 齐 


Ts-Mo7 一 多 下 JCPD)， 一 12 
可 以 证 明 ,采用 等 分 布 序列 的 蒙特 卡 洛 法 比 采用 随机 序列 的 蒙特 卡 洛 法 误差 阶 要 好 。 
下 面 结 合 例子 来 说 明 。 


【 例 6.4 -3】〗 用 等 序列 的 蒙特 卡 洛 法 计算 例 6.3 -1 中 积分 : 
『 下 和 (errae)asjajas 


# 构造 被 积 函数 ,x 为 长 为 4 的 列 向 基 或 者 矩阵 ( 行 数 为 4) 。x na 
f= @(x) exp(prod(x)); 二 
mn=10000; 
% 选取 对 有 理 数 独立 的 无 理 数 sqrt(2) ,sqrt(3) ,sqrt(6)/3， sart(10) 来 
x = bsxfun(@times,repmat(1:nv4,1),[sqrt(2)isqrt(3)1sqrt(6)/3isqrtC102]75 
Xx=mod(x,1); 0 
format long 
I= sum(f(x))/n % 用 基本 的 绽 特 卡 洛 法 估计 积分 值 
工 = 

1. 069297245824625 


【 例 6.4 -4】 用 等 序列 的 蒙特 卡 洛 法 计算 例 6. 3 -4 中 的 积分 ,并 和 基本 的 蒙特 卡 洛 法 比 
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1 exp(zi ) lsinkzp) 二 
| dz dzz| dz| dz 一 
0 exp(zi )12 《mi +sintza))72 (Cam +zs)12 
2z 
一 | (sin(ziexp(z VWz3 ) ) 十 zi )dzs 


该 五 重 积分 的 积分 区 域 是 不 规则 的 ,在 6. 3 节 , 利 用 nIntegrate 函数 给 出 了 其 精度 比较 高 
的 解 ,但 是 也 看 出 ,求解 时 间 相 当 长 。 这 里 利用 蒙特 卡 洛 法 再 重新 对 其 计算 并 进行 结果 比较 。 
从 上 述 积分 表达 式 容 易 找 到 包含 被 积 区域 的 一 个 超 长 方 体 如 下 ; 


0<mis1 寺 <m<e 下 全 <m<z, 宫 人 <r<3, 弄 <e<6 





选取 V5,V5,AG， VI0, V19 这 五 个 对 有 理 数 独立 的 无 理 数 来 生成 等 分 布 序列 。 利 用 等 序 
列 的 蒙特 卡 洛 法 计算 ,代码 如 下 : 


clear 

format long 

% 构造 被 积 函数 

于 = @(x) sin(x(173).# exp( x(2;.# sqrt(x(3,:))》)) +x(d4y:) .nx(5，:); 

mn= 1000000， 

% 选 取 对 有 理 数 独立 的 无 理 数 sqrt(2) "sqrt(3),sqrt(6)/3,sqrt(10) 来 生成 等 分 布 序列 
x= bsxfun(@times,repmat(1:n,5,1),[sqrt(2);sqrt(3)isqrt(6)/3;sqrt(10);sqrt(19)])， 
X= mod(xy1); 
“多 进 行 变 换 , 使 得 区 间 (0,1) 上 的 等 分 布 序列 变 到 各 层 积分 区 间 上 去 
BminusR = diff([0.5 sin(exp(1))/2 sin(exp(1))14 sin(exp(1))/4;exp(1) 2 3 6]) 
x(2:end,:) = bsxfun(@times,x(2:end,:),Bninush)， 

x(2:end,:) = bsxfun(@plus,x(2:end,:),[0.5isin(exp(1))/4x [2;1;1]]); 

外 判断 哪些 点 落 人 积分 区 域 

ind=(x(2,:)> = exp(x(1,:))/2 )&( x(2,:)<= exp(x(1,:)) )&... 

(Cx(3,:)>= (sin(x(2,:))+x(1,:))/2 )&(x(3,:)<= (sin(x(2,;)) + x(ly:)))&... 
Cx(4y:)>= (x(1,:)+x(3:))/2 7)&Cx(4,:)<= xly:) +x(3,:) )&... 
〈《x(5,:)>=x(4y:) )&Cx(5,:)<=2xx(d4,:)); 

$ 求 近似 积分 

II = (exp(1) -0.5)*(2- sin(exp(1))/2) * (3- sin(exp(1))/4) * (6 一 sinCexp(1))74) * ... 

Sum(f(x(: yind) ) )/n 
II1 = 
5.898580893966090 


利用 一 般 的 蒙特 卡 洛 法 计算 ,代码 如 下 : 


clear 
format long 
多 构造 被 积 函数 
上 = @(x) sin(x(1,:)，* exp( x(2,:). * sqrt(x(3,:)) )) +x(4,:).-x(5，:)3 
mn=1000000; 
多 生成 超 长 方 体内 的 随机 数 
x(1,:) = rand(1,n)， 
x(2,:) = unifrnd(0.5,exp(1),1,n); 
x(3,:) = unifrnd(sin(exp(1))/2,2,1,n)} 





日 * 洲 沿 冰 六 灶 站 出 乒 二 8VTIVIN 淹 自 林 访 几 深 诗 闵 天 二- 互 海 言 让 圳 入 也 击 于 学 院 讲 
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x(4,:) =unifrnd(sin(exp(1))/4,3,1,n)5 
x(5,:) =unifrnd(sin(exp(1))/4,6,1,n); 
# 判断 哪些 点 落 人 积分 区 域 
ind= (x(2,:)>= exp(x(1,:))/2 )&(x(2,:)<= exp(x(1,:)) )&..， 
〔(x(3,:)>= (sin(x(2,:))+x(1,:))/2 )8&(x(3,:)<= (sin(x(2,:))+x(1,:)))8. 
(Cx(4,:)>=(x(1,:)+x(3,:))/2 )&(x(4,:)<=x(1,:)+x(3,:) )8.. 
〔(x(5,:)>=x(4,:) )&Cx(5,:)<C=2x#xx(4,:))5 
% 求 近似 积分 
I2 = (exp(1) - 0.5) * (2- sin(exp(1))/2) * (3- sin(exp(1))/4) * (6- sin(exp(1))/4) * . ，. 
Sum(E(x(: ,ind)))/n 
TI2 = 
5.682118433926163 


一 般 的 蒙特 卡 洛 法 具有 计算 不 可 重复 性 等 缺点 , 相 比 而 言 , 等 序列 的 蒙特 卡 洛 法 在 选 定 产 
生 等 序列 的 无 理 数 后 ,计算 结果 就 唯一 确定 了 。 从 上 面 讨 论 可 以 看 出 ,如 果 对 于 积分 精度 要 求 
不 是 很 高 ,蒙特 卡 洛 法 在 求解 重 数 较 多 的 积分 时 是 很 有 效 的 。 


6.5 案例 5: 第 二 类 下 redholm 积分 方程 数值 未 解 


6.S.1 概 述 


积分 方程 是 指 方程 中 含有 积分 ,而 积分 内 外 都 含有 未 知 函 数 的 方程 。 积 分 方程 有 各 种 不 
同 的 类 型 ,不 同类 型 方程 的 理论 及 解法 也 有 很 大 差异 。 本 案例 介绍 第 二 类 Fredholm 积分 方 


程 的 数值 解法 。 
第 二 类 Fredholm 积分 方程 具有 如 下 形式 ， 
3(Gz) 一 tczoyCG)ds+7Gz)， as 和 工 近 六 (6-1) 
其 中 ,(zys) 称 为 积分 方程 的 核 , F(z) 称 为 自由 项 ;， 为 参数 ;1,&(zys) ,CCz) 均 为 已 知 ;而 
y(z) 为 未 知 函数 。 


求 积分 方程 (6 -1) 的 解 >Cz) 的 数值 方法 就 是 在 区 间 [a, 妇 的 某 些 点 zi (一 1,2,… 2) 上 
求 y(zi) 的 近似 值 *, ,使 得 误差 |y(z; ) 一 | 满足 精度 要 求 。 


6.5.2 具体 解法 
为 求解 方程 (6 - 1) ,通常 可 用 数值 积分 的 方法 将 方程 (6 - 1) 离 散 化 , 设 数值 积分 公式 为 
[「rcedz= 袜 An) (6-2) 


其 中 ,zeE[a, 加 为 求 积 节点 ,A, 为 求 积 系数 。 在 方程 (6 - 1) 的 积分 中 用 求 积 公式 (6 - 2) 近 
似 , 则 得 


yzDmAY ARCzyz)yCz) 十 7FCz) 《6=3) 
若 在 式 (6 - 3) 中 令 z 一 王 ， 和 zs 并 记 w=y(z) 一 An) ,大 一 帮 (nn)，, 由 方程 (6 - 3) 得 


久生 AAA 十 万 ， 人 一 1,2，7) (6-4) 
j=1 


se 
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这 是 关于 未 知 量 %m ,ys ,>， 的 线性 方程 组 , 若 记 


Aikn Aszpaz … 人 
天 一 本 ka 站 AN 
Aika AR … A。 


则 当 方程 (6 - 4) 的 系数 行列 式 ( 称 为 核 &(zys) 关 于 求 积 系数 A; (一 1,2,…,m) 的 Fredholm 
行列 式 ) 

det(T 一 i 开 ) 天 0 (6-5) 
时 ,方程 组 有 唯一 解 % ,ya，…，*3w, 它 就 是 积分 方程 (6 -1) 的 解 y(z) 在 点 ziyzs，…vz, 上 的 近 
似 值 。 由 此 可 得 到 >(Cz) 在 [e, 刀 上 的 近似 解 ; 


了 (zs Crz) 二 AIAECzia )y (6-6) 
积分 方程 数值 解 求解 过 程 要 解 线性 方程 组 ,其 阶 数 与 求解 公式 节点 数 相同 ,为 此 需要 知道 
相应 的 求 积 系数 A 和 求 积 节点 zj 。 这 里 介绍 Gauss - Lobatto( 高 斯 - 洛 巴 托 ) 求 积 公式 。 这 


里 仅 介 绍 其 公式 ,关于 公式 的 推导 有 兴趣 的 读者 可 以 参考 文献 [14] ,或 者 其 他 相关 的 数值 计算 
方面 的 书 。Gauss - Lobatto 求 积 公式 的 表达 式 如 下 ; 





1 2 一】 
三 rezydtz= 远 呈 LACD+7GD] A7Ce)+RC (6-7) 
Gauss - Lobatto 求 积 公 式 的 系数 和 余 项 分 别 为 ; 
这 2 一 
4 一 AHDEETODJ 0 
到 Cn 十 1)22+1[ Cn 一 1)1]4 wa 到 了 
RR[ 广 ] 一 (2 二 DEC2z7 (CD)，7E( 一 1,1) (6-9) 
其 中 为 也,(z) 的 零点 ;P,(z) 为 次 Legendre( 勒 让 德 ) 多 项 式 。 
Legendre 多 项 式 具 有 如 下 表达 式 ， 
Pu(z) 一 1 
二 所 = 2 民 
PCz) 一 Peardan[(z 一 ] (6-10) 


2 一 152，…。， ”ZE [一 1;1] 
Gauss - Lobatto 求 积 公 式 要 求 被 积 区 间 为 [一 1,1], 对 于 一 般 被 积 区 间 [a,b, 在 应 用 
Gauss - Lobatto 求 积 公式 时 ,需要 作 如 下 变量 替换 


:一 去 [46 一 ct 十 (6 二 a)]] 


将 区 间 [a, 纪 映射 到 区 间 [ 一 1,1]。 
至 此 ,根据 前 面 介绍 的 这 些 知识 ,可 以 写 出 求解 第 二 类 Fredholm 积分 方程 的 程序 ,代码 
如 下 : 


function [Ybar,ybarSym ] = Fredholm2(ker,f,lanbdayaybyn) 

#% 求 解 第 二 类 Fredholm 积分 方程 :y(x) = lambda * int(k(x,S) * Y(S) x ds,ab) + f(x),a<=x<=h 
外 ker, 核 函数 kx(x,s) 的 本 数 句柄 ;f, 自 由 项 f(x) 的 函数 句柄 ;lanbda, 参 数 ;a,b 积分 上 下 限 
$%nyGauss - Lobatto 积分 公式 的 积分 节点 数 


配 奖 辣 记 进 迟 马术 于 学 辽 淋 
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该 程序 除了 可 以 计算 第 二 类 Fredholm 积分 方程 ,其 把 符号 计算 和 数 证 结合 

也 可 以 供 读者 参考 。 在 求 次 Legendre 多 项 式 以 及 其 导数 的 时 候 , 采 用 的 符号 计算 的 方 
式 ,而 求 积分 系数 以 及 积分 节点 的 时 候 分 别 利 用 poly2sym 将 符号 多 项 式 转化 成 数值 型 的 ,再 

利用 针对 数值 多 项 式 的 函数 polyval 或 者 roots 求 多 项 式 在 某 些 点 上 的 值 或 者 多 项 沁 


“区 沿 音准 是 生 市 上 十 8VTLVIN 郑 由 可 襄 沿 小 主流 天 本- 瑟 源 言 训 寺 外 五 相 于 等 沪 讲 
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程序 最 后 在 求 未 知 函 数 的 近似 函数 时 ,采用 了 两 种 方法 :一 种 是 纯 数 值 的 方法 ,通过 建立 
一 个 内 峰 函 数 yx 一 approxY(x) 来 表示 未 知 函数 ,并 返回 该 函数 的 句柄 ; 另 一 种 是 采用 符号 计 
算 的 方式 得 到 其 表达 式 。 读 者 在 实际 应 用 中 可 以 酌情 使 用 这 两 种 方法 。 
6.5.3 实 例 


下 面 看 一 个 第 二 类 Fredholm 积分 方程 求解 的 例子 ， 
【 例 6.5-1] 求解 积分 方程 


yz) 一 「a-smycod+ (1 一 3ay》 
其 解析 解 为 


y(z) 一 全 (1 一 3z) 
利用 Fredholm 2 函数 求 其 解 , 代 码 如 下 : 





从 上 面 的 求解 结果 来 看 ,和 解析 解 相 比 , 仅 仅 采用 三 个 点 的 Gauss - Lobatto 求 积 公式 得 
到 的 近似 解 和 解析 解 的 差异 就 已 经 非常 小 了 。ybar 是 函数 句柄 形式 ,如 果 不 方便 观察 其 公 
式 ,可 以 从 其 等 价 的 符号 表达 式 ybarSym 看 出 近似 解 几乎 和 解析 解 完全 相等 。 可 以 把 得 到 的 
近似 解 和 解析 解 在 一 个 图 里 画 出 来 : 
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得 到 的 图 形 如 图 6. 2 所 示 。 


1 
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0 01 02 03 04 05 06 07 08 09 1 
其 
AnalyticY 一 解析 解 ; YbarX 一 数值 解 ; YbarSymx 一 与 数值 解 对 应 的 表达 式 形式 


图 6.2 数值 解 与 解析 解 对 比 
从 图 6. 2 可 以 看 出 ,解析 解 和 数值 解 几 乎 完全 重合 。 再 看 一 个 例子 ; 
【 例 6.5-2】 求解 积分 方程 
CD)= 二 [escod 一 e 
其 解析 解 为 
3(Z) 一 时 
利用 Fredholm2 函数 求 其 数值 解 , 代 码 如 下 : 








“小 痊 首 准 籼 症 光 几 帮 GEVTIVIN 光 淖 市 沪 内 入 计 六 天 本。 本 澳 言 林 过 将 瑟 此 中 洗 辽 时 
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从 上 面 得 到 的 近似 解 的 表达 式 ybarSym 王 0. 999 999 999 999 087 1 * exp(Cx) 可 以 看 出 , 仅 
采用 五 点 的 Gauss - Lobatto 求 积 公式 , 求 出 的 数值 解 的 表达 式 和 解析 解 的 表达 式 相差 就 不 到 
千 亿 分 之 一 了 。 解 析 解 和 数值 解 在 一 张 图 中 已 经 无 法 分 辨 出 区 别 , 如 图 6. 3 所 示 。 
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AnalyticY 一 解析 解 ; YbarX 一 数值 解 ; YbarSymx 一 与 数值 解 对 应 的 表达 式 形式 
图 6.3 数值 解 与 解析 解 对 比 
由 此 可 见 , 上 面 介绍 的 数值 求解 积分 方程 的 方法 是 非常 有 效 的 一 种 方法 。 


6.6 娄 例 6: 第 一 类 Fredholm 积分 方程 数值 求解 


6.6.1 概 述 


许多 实际 问题 的 模型 可 建立 第 一 类 Fredholm 积分 方程 ,例如 ,医用 X 射线 断层 摄影 技术 
问题 . 融 感 勘测 数据 问题 .地 震 勘测 问题 等 建立 的 数学 模型 通常 都 是 第 一 类 Fredholm 积分 方 
程 , 即 
[ezoycod = re， 4as 和 工 生 (6-11) 
其 中 ,&(Cz,s) 是 已 知 的 实 的 平方 可 积 函 数 ; 自 由 项 f(z) 已 知 ;y(:) 是 未 知 函 数 。 
虽然 第 一 类 Fredholm 积分 方程 形式 比 第 二 类 Fredholm 积分 方程 简单 ,但 其 求解 相对 第 
二 类 Fredholm 积分 方程 要 困难 许多 。 例 如 ,由 方程 (6 - 11) 左 边 可 知 , 函 数 7(z) 一 定 是 连续 
的 ,否则 方程 两 端 不 可 能 相等 ,因而 没有 可 积 的 解 。 因 此 ,第 一 类 Fredholm 积分 方程 的 解 的 
存在 性 需要 进一步 研究 。 另 一 方面 ,一 些 第 一 类 Fredholm 积分 方程 的 解 不 止 一 个 ,譬如 方程 
[三 sins。y(s)ds 一 Z， 0 之 工 么 
有 解 


?GD) = 二 
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但 是 ,可 以 验证 具有 如 下 表达 式 的 函数 都 是 上 述 方程 的 解 : 
y(G) 一 于 二 sinmz， mn 一 1,2，。 


因此 ,方程 解 的 唯一 性 也 需要 探讨 。 事 实 上 ， 当前 仅 对 一 些 含有 特殊 类 型 核 的 第 一 类 
Fredholm 积分 方程 有 比较 有 效 的 解法 ,譬如 退化 核对 称 核 等 。 好 多 求解 方法 的 求解 前 提 都 
建立 在 第 一 类 Fredholm 方程 满足 比较 强 的 条 件 基础 上 。 

本 案例 只 讨论 一 类 可 以 转化 为 第 二 类 Fredholm 积分 方程 的 第 一 类 Fredholm 积分 方程 
求解 方法 ,并 简单 讨论 了 直接 数值 求解 的 方法 。 


6.6.2 一 类 可 以 化 为 第 二 类 Fredholm 积分 方程 的 第 一 类 Fredholm 
积分 方程 求解 方法 


现在 考虑 第 一 类 Fredholm 积分 方程 (6 - 11) ,如 果 核 &Cz,s) 在 任 一 与 * 轴 平 行 的 线 只 相 
交 一 次 的 对 角 曲 线 *=eCz) 上 有 非 零 有 限 跳 了 , 即 
&(CZ,ECZ) 一 0) 一 RCZyE(z) 十 0) 一 LCz) 
其 中 ， 一 0 表示 左 趋 近 ,类 似 的 ,“ 十 0? 表 示 右 趋 近 。 则 (6 - 11) 可 以 写 为 


了) 二 
「 4Acz,oyCsds 二 | Cry(s)ds 一 Fr，a<x 挟 0 (6-12) 
5 码 
方程 (6 - 12) 两 边 对 变量 zx 求 导 ,得 
ez) 
| 基 y CD)d 十 ACz,e(z) 一 0)y(E(Cz))6'Cz) 一 ECzva)y (aa 十 


[ 
| 荆 y Cs)ds 十 ECzyb)y (68 一 ACzr'E(Z) 十 0)y(6(z))6 (zz) 一 (6-13) 


(人 
各 cpd+TLCoyCeczy)8Cz)= PCz) 


式 (6- 13) 还 不 是 标准 的 第 二 类 Fredholm 积分 方程 形式 ,需要 把 SCz) 用 另 一 个 变量 , 璧 
如 rz 替 换 掉 , 因 r 一 6(z) ,进行 逆 变 换 得 到 z=7y(Cz), 代 入 式 (6 -13), 由 于 假设 亏 (z) 非 零 , 因 


此 整理 得 到 
3R(,5) 六 
4 3z ”首富 几 : CCr)》 6-14) 
>Co+ 上 | ECGeJ7JY Gd EGGoDD)8 CC 
记 


9RCZ95) 
az 工 一 织 中 


工 (7Cr))8 (7Cr)) 


FoD=- 大 CCr)) 
工 (7(r))6 "CCr)) 


天 (rs) 一 


将 其 带 人 (6 - 14) 式 ,得 到 
>(D= | Keroy(Dds+FGn) (6 -15) 
于 是 就 得 到 了 标准 的 第 二 类 Fredholm 积分 方程 表达 式 。 


细心 的 读者 可 能 已 经 发 现 , 式 (6 - 12) 右 端 项 fCz) 如 果 加 上 任意 常数 C ,按照 上 述 方法 也 
能 得 到 (6 - 15) 式 ,因此 式 (6 - 15) 的 解 不 一 定 是 原 方程 (6 - 11) 的 解 。 事实 上 ,有 下 面 定理 ， 
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定理 6.2 
1) 核 &Cz's) 在 z-s 轴 上 有 界 , 且 除 曲 线 *=6(Cz) 外 处 处 连续 ; 
2) 6(z) 是 连续 的 且 其 导 函 数 是 不 为 零 的 连续 函数 ,并 有 
ECa) 一 a， 86) 一 0 
3) &(Cz,6Cz) 一 0),R(Czy6e(Cz) 十 0) 在 (a,0) 上 存在 且 它们 的 差 : 
工 (zz) 一 上 CCzyE(z) 一 0) 一 人 Czye(Cz) 十 0) 
是 连续 的 ; 
a 


4 &(z,5) 对 变量 x 可 导 且 六 满足 1) 的 性 质 , 且 当 <e(z) 以 及 *>#(z) 时 ,给 表达 式 
一 样 ; 

5) j(z),F(z) 是 连续 的 。 

在 这 些 条 件 下 ,如 果 术 


9 区 
工 (Cr))6 (7Cr)) 
的 Fredholm 行列 式 不 为 零 , 则 第 一 类 Fredholm 积分 方程 


[ecoycod = rcz+c， 4a 委 雪 4 
仅 对 于 参数 C 的 某 一 特定 值 有 唯一 连续 解 。 这 个 解 就 是 第 二 类 Fredholm 积分 方程 
(6 -15) 的 唯一 连续 解 。 当 工 (z) 总 为 零 , 如 果 
M(z) 一 号 (EECE) 一 0 一 邓 (EC2) 十 9) 
不 等 于 0, 上 述 定理 可 以 推广 。 


当 第 一 类 Fredholm 积分 方程 满足 定理 6. 2 的 条 件 时 ,可 以 利用 下 面 程序 转化 成 第 二 类 
Fredholm 积分 方程 ,再 求 其 数值 解 的 代码 如 下 : 





ss， 第 6 章 积分 以 及 积分 方程 案例 1/yrune un 
.En 





【 例 6.6-1] 求解 第 一 类 Fredholm 积分 方程 
ceoy (ds = 67z 一 40z 十 52z 十 C 


0 
并 确定 常数 C。 其 中 cz 一 人 5)2 十 1， s<< 工 
Ts(CZ 一 5) ， S 盖 工 


该 方程 的 解析 解 为 >(z) 一 60z? 十 60z 十 24, 常 数 C 一 0。 
容易 验证 此 方程 满足 定理 6. 2 的 条 件 ,利用 Fredholmlto2 函数 求解 代码 如 下 : 






可 见 求 出 来 的 近似 解 已 经 非常 接近 解析 解 了 。 将 ybarSym 表达 式 代入 原 方程 ,可 以 确定 
常数 C 一 0, 即 


* 避 游 间 广 时 种 由 生 二 8YTIV 淹 让 市 这 竹 洲 认 尖 天台- 瑟 源 言 评 寺 轨 互 北 慰 等 防 讲 





【 例 6.6-2】 求解 第 一 类 Fredholm 积分 方程: 
[keeoy (s)ds 一 人 十 号 一 雹 交 寺 让 





zz 十 z 一 25 十 1， :< 玛 《xz2 十 z) 
并 确定 常数 C。 其 中 ,区 (zs) 一 和 
2 十 工 一 25， 5 人 > 郊 ( 安 十 Z) 
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此 时 8Cz) 一 二 (zz 十 z), 其 反 函 数 有 两 个 ,根据 >0, 淘 汰 其 中 一 个 得 到 其 反 画 数 为 


用 六 有 下- 二 
1(Z) 一 2z 十 二 一 元 


利用 Fredholmlto2 函数 求解 代码 如 下 : 


。 注 沁 记 广电 条 由 贱 二 SGVTIVIN 淹 岩 市 吕 举 竹 计 泳 天 二 瑟 闫 言 记 地 和 势 瑟 站 慰 尝 院 淋 








将 ybarSym 代入 原 方程 , 求 C, 代 码 如 下 : 





” 求 得 常数 C 约 为 一 1. 205 6 。 


6.6.3 第 一 一 类 Fredholm 和 分 方程 的 直接 数值 各 分 解法 讨论 


上 节 给 出 了 一 种 将 第 一 类 Fredholm 积分 方程 转化 为 第 二 类 Fredholm 积分 方程 再 数值 
求解 的 方法 。 读 者 自然 会 想到 直接 数值 积分 的 方法 。 事 实 上 ,直接 数值 积分 的 方法 在 很 多 时 
候 是 行 不 通 的 ,这 是 因为 按照 类 似 6. 5 节 的 方法 , 取 一 种 数值 积分 公式 


5 天 了 R 
ecoaz= 闷 Ascn) (6-16) 
之 


1 
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其 中 ,zyzz，…Tn 为 区 间 [a, 势 中 求 积 节 点 ,A， ,A:,…，,A, 为 求 积 系数 ( 求 积 权重 ) 。 离散 化 
方程 (6 - 11) ,得 到 


Ai 一 态 ， 一 1, 2 和 (6-17) 
7 


其 中 , 心 一 ECziyziD)3 一 (Zi)3 方 一 太 Czi)。 

方程 (6 - 17) 的 系数 矩阵 在 很 多 时 候 都 是 “病态 ”的 ,或 者 非 满 秩 的 ,这 样 也 就 无 法 求 出 其 
数值 解 。 对 于 一 些 “ 病 态 ” 和 矩阵, 即使 采用 符号 计算 的 方法 ,得 到 其 对 应 的 m。y 也 是 关于 求 
积 节点 有 意义 ,而 并 不 能 通过 插值 或 者 拟 合 得 到 区 间 [a, 刀 上 的 整个 >Cz)。 有 兴趣 的 读者 可 
以 参照 6. 5 节 的 方法 编写 程序 验证 。 


6.7 案例 7: 第 二 类 Volterra 积分 方程 数值 求解 


6.7.1 概 述 
第 二 类 Volterra 积分 方程 具有 如 下 表达 式 : 
3(z) 一 让 4CzoyCod+7z)，a<s<r<6 (6-18) 


其 中 ,R(zys) 为 积分 方程 的 核 ,定义 在 和:s 委 z 委 0 上 ;JJFCz) 为 自由 项 ,定义 在 ae 肥 zs 和 2 上 ; 和 
为 参数 。),&(Czys) ,F(Cz) 均 为 已 知 ,而 >(z) 为 未 知 本 数 。 

从 式 (6 - 18) 可 以 看 出 ,第 二 类 Volterra 积分 方程 和 第 二 类 Fredholm 积分 方程 的 区 别 在 
于 积分 限 , 第 二 类 Volterra 积分 方程 的 积分 上 限 是 变量 ,而 第 二 类 Fredholm 积分 方程 上 限 是 
常量 。 

一 般 情 况 下 ,求解 第 二 类 Fredholm 积分 方程 通常 选择 Gauss 求 积 公式 ,而 Newton - 
Cotes 积分 公式 更 适合 第 二 类 Volterra 积分 方程 的 数值 求解 。 


6.7.2 具体 解法 


当 ae 委 z<s 委 时 ,定义 有 (zs) 一 0, 则 Volterra 积分 方程 (6 - 18) 可 以 看 成 是 第 二 类 
Fredholm 积分 方程 。 类 似 6.5 节 ,在 方程 (6 -18) 中 , 令 X 一 [zo ,ziyzz ,Zn] ,其 中 To 一 Q。 
然后 采用 某 种 数值 求 积 公 式 , 璧 如 Newton - Cotes 积分 公式 ,离散 化 方程 (6 -18) ,得 到 下 式 : 


久 和 AN 十 万 ， 一 0,1) 2 (6 -19) 
了 一 0 


式 (6-19) 中 ,一 y(z)， 司 一 &Cziyzi ) 太一 Fr)( 这 0,1, 2 4 (Ci 人 1 一 0,1，……2 是 
Newton - Cotes 求 积 公式 的 系数 ,将 在 稍 后 介绍 ,为 了 表达 式 统一 , 记 4 一 0。 
把 方程 组 (6 - 19) 写 成 如 下 的 矩阵 形式 : 
Y 一 KY 十 (6-20) 
其 中 ， 
Y 一 [yo,yi，… yn] 


配 澳 言 永 吉 妆 了 互 二 于 党 院 潜 


。 获 沽 间 六 煌 站 由 贱 芭 8VTIVIJN 兆 见 市 洲 油 路 座 六 天 本 
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0 0 0 0 0 
AIRio AAA 0 0 0 
|AA3kao MAAiba AASkzs 0 0 0 
|]AAike。 MA Ai MAikas 0 
2 3 3 2 0 


MATR MATRa MAR AAS …  AA 克 wm 


了 [ja 天 
由 此 可 知 ,To+bxeot+pn 一 下 是 一 个 下 三 角 矩 阵 ,方程 (6 - 20) 非 常 方便 求解 。 
这 里 要 注意 的 是 , 当 Y 求 出 后 ,并 不 能 像 第 二 类 Fredholm 积分 方程 求解 那样 得 到 y(z) 的 
近似 解 
了 Co) 一 ) 疡 Ar )y 十 7Cz) (6-21) 


这 是 因为 根据 Newton - Cotes 求 积 公式 特点 ， 式 (6-21) 中 的 是 La,z] 中 的 等 分 节点 ,也 就 
是 说 对 于 不 同 的 xyzi ,yw 是 要 变化 的 。 而 求 出 的 了 只 是 当 z 一 0 时 ,也 就 是 区 间 [a,o 上 的 等 
分 节点 上 的 函数 值 ,因此 对 于 任意 ze [a, 纪 ,不 能 利用 了 来 离散 式 (6 - 18) 得 到 式 (6 - 21) 。 
虽然 在 这 里 ,y(z) 不 能 写成 统一 表达 式 , 但 是 根据 得 到 的 Y 和 ,可 以 采用 插值 或 者 拟 合 的 方 
法 得 到 区 间 其 他 点 上 的 函数 值 。 

下 面 介绍 Newton - Cotes (牛顿 - 柯 特 斯 ) 求 积 公 式 。 这 里 仅 介 绍 其 公式 ,关于 其 推导 ,有 











兴趣 的 读者 可 以 参考 数值 计算 方面 的 参考 书 。 设 节点 一 a 十 让 (i0,1,2，sa) 一 钴 2， 
Newton - Cotes 求 积 公式 如 下 : 
， ， 
ecmpdz= Gocigde+ 邮 ) (6-22) 
a k=o0 
其 中 
才 一 一 一 一 [| 1 一 ( 代 一 1))G 一 (十 1))…(Gt 一 md， 天 一 01;2， 
“” &1Cz 一 人 )!zJv 人 


Cx 称 为 柯 特 斯 系数 。Newton - Cotes 求 积 公式 的 余 项 为 

R.CP= 上 | 妇 二 全 wz)dr， eeE [a,o] 
特别 地 , 当 ? 为 偶数 时 

R,[ 门 一 总 于 旨 | moczydzr， yeE [Fa 全 


其 中 ,wo(z) 一 (z 一 zo)(z 一 zi) mw(Z 一 Zn)。 
根据 上 面 介 绍 的 知识 , 写 出 利用 Newton - Cotes 公式 计算 第 二 类 Volterra 积分 方程 的 程 
序 代码 如 下 : 





* 比 沿 刘 六 曙 站 赴 和 片 二 SVTLVIJN 郑 庆 市 洲 册 小 认 沫 天 雪 。 丁 源 言 记 寺 息 瑟 此 下 尝 陀 讲 








function [X,Y] = Volterra2(ker,f,lamnbdayaybyn) 

# 利用 Newton - Cotes 积分 公式 求解 第 二 类 Volterra 积分 方程 ; 

和 Y(x) = lambda x int(k(x,s) x Y(S) * dsyax) +f(x),a<=sS<=x<=b 
# ker, 核 函数 kx(x,s) 的 函数 句柄 ;f, 自 由 项 f(x) 的 函数 句柄 ;lanbda, 参 数 ;a 积分 下 限 ,avb] 
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在 本 节 开 始 提 到 当 ae<z<s<0 时 ,定义 &(Cz,s) 一 0, 则 Volterra 积分 方程 (6 - 18) 可 以 看 
成 是 第 二 类 Fredholm 积分 方程 ,因此 可 以 利用 Fredholm2 函数 求解 ,只 不 过 这 时 ker 是 分 段 


“ 济 首 准 曙 生 相生 十 SVTILVJN 涤 看 机 这 册 注 诗 漆 天 过 。 西关 言 本 二 妾 瑟 直 于 尝 陀 计 
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函数 ,需要 注意 其 表示 形式 ,这 时 近似 函数 y(z) 的 符号 公式 ybarSym 就 不 方便 生成 了 ,因为 
MATLAB 符号 计算 不 支持 符号 大 小 比较 ,因此 修改 Fredholm2 如 下 : 
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6.7.3 实 便 


下 面 看 一 个 第 二 类 Fredholm 积分 方程 求解 的 例子 : 
【 例 6.7- 1】 求解 积分 方程 : 


y(Cz)=|G 一 zyCGod+z， o<z<1 


其 解析 解 为 
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y(Cz) 一 sin 并 


利用 Volterra2 函数 求 其 解 , 过 程 如 下 : 












再 利用 NewFredholm2 函数 求解 ,注意 ker 的 表示 形式 ， 





将 两 种 方法 得 到 的 结果 和 解析 解 进行 画图 对 比 , 如 图 6.4 所 示 。 


* 医 沿 闪闪 灿 站 由 六 呈 8VTIVIN 淹 所 机 训 凡 六 诗 六 天 本。 本 痢 言 本 过 畔 互 二 于 学 防 讲 
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图 6.4 数值 解 与 解析 解 对 比 
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从 图 6.4 可 以 看 出 "两 种 方法 得 到 的 数值 解 和 解析 解 相差 都 很 小 ,数值 解 几乎 和 解析 解 重 
合 。 再 看 一 个 例子 : 

【 例 6.7-2】〗 求解 第 二 类 Volterra 积分 方程 

3y(z) 一 外 scod+ 二 er- 十 ce)，0 委 z 过 1 
其 解析 解 为 
3K》 到 囊 = 

分 别 利 用 Volterra2 本 数 以 及 NewFredholm2 函数 求 其 解 ,并 画 数 值 解 和 解析 解 的 对 比 

图 ,如 图 6. 5 所 示 。 


_>> clear 

Jer= @(xys) exp(-x- s)4 

=@@(x) (exp(-x) +exp(-3xx))/2; 
[x,z]= Volterra2(ker,f,1,0,1,10);g% 取 10 点 Newton - Cotes 公式 
Jeer= @@(xys) exp(-x-s)x(s<=x); 
Ybar = NewFredholm2(ker,f,1,0,1,10);% 取 10 点 Gauss - Lobatto 公式 
Plot(CXvexp( 一 X)，x 7) 
hold on 
plot(CX,Y,，o) 
Plot(X,ybar(X) ,dihold off; 
1legend( 解析 解 ' Volterra2 函数 求解 结果 ', NewFredholnm2 本 数 求解 结果 ,location'' best) 
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+ 解析 解 
中 volttema2 函 数 求解 结果 ] 
@_NewFredholm2 函 数 求解 结果 
国 ] 
9 8 ] 
外 
> 0.7| 8 | 
os 多 ] 
合 
05 合 
全 
4 个 
上 有 1 pas 
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图 6.5 数值 解 与 解析 解 对 比 


两 种 方法 的 数值 解 和 解析 解 误差 都 不 大 ,尤其 是 采用 Newton - Cotes 公式 的 Volterra2 
函数 得 到 的 数值 解 几 乎 和 解析 解 重合 。 


" 吕 贞 证 这 业 征 由 辣 8YTIVIN 郊 刚才 洲 岂 兴 计 六 天 可- 配 产 言 评 过 办 互 此 于 学 辽 渤 





115| 


AVIJKU 卫 本 。_MATLAB 击 小 抽 和 村 本 与 各 用， 25 个 案 全 分 析 


区 册 闪闪 煌 汪 出 几 二 SSVTIVIN 郊 所 机 这 同 洲 主 济 天 过 瑟 源 言 训 圭 特 孔 本 于 等 陀 讲 





和 
D) 


WwW. 访 oveMafiab cn 


6.8 娄 例 8: 第 一 类 Volterra 积分 方程 数值 求解 


6.8.1 概 述 


就 像 第 一 类 Fredholm 积分 方程 和 第 二 类 Fredholm 积分 方程 的 差别 一 样 ,第 一 类 Volterra 
积分 方程 和 第 二 类 Volterra 积分 方程 的 差别 就 在 于 第 一 类 Volterra 积分 方程 的 未 知 函 数 仅 
出 现在 积分 号 内 ，, 即 | 

[ceoycod = Fr)， a<z 妇 8 (6-23) 

一 般 来 说 ,在 实际 应 用 中 ,第 一 类 Volterra 积分 方程 可 分 为 两 种 类 型 :一 类 是 核对 各 变量 
连续 可 微 ; 另 一 类 是 当 * 一 z 时 , 核 无 界 , 璧 如 Abel 方程 就 是 这 种 类 型 。 一 般 情 况 下 , 核 无 界 的 
第 一 类 积分 方程 的 研究 相当 困难 ,目前 研究 还 不 充分 ,只 对 一 些 特殊 的 方程 可 以 求 出 解析 解 。 
这 里 作为 数值 求解 案例 , 仅 讨论 连续 核 的 Volterra 积分 方程 的 求解 方法 。 

由 于 按照 类 似 6. 7 节 的 方法 直接 离散 式 (6 - 23) 会 得 到 不 满 秩 的 系数 矩阵 ,因此 常 采用 转 
化 成 第 二 类 Volterra 积分 方程 再 数值 求解 的 方法 。 


6.8.2 转化 为 第 二 类 Volterra 积分 方程 


如 果 要 求 方程 的 核 和 解 是 有 界 的 ,那么 fF(0) 一 0, 否 则 式 (6 - 23) 的 解 不 存在 。 (0) 一 0 
通常 被 称 为 相 容 性 条 件 。 一 般 情 况 下 ,对 式 (6 - 23) 的 两 端 关 于 z 求 导 得 


『 驴 Gz203 (ds 十 Aryz)y(z)z' 一 人 (zya)?(a)a' 一 


『 BE (s)ds 十 4Czvz)y(z) 一 刀 (z) (6-24) 

式 (6 - 24) 是 第 二 类 Volterra 积分 方程 ,关于 式 (6 - 24) 的 解 和 式 (6 - 23) 的 解 之 介 的 关系 
有 如 下 定理 : 
定理 6.3 


1) 核 kz 和 中 人 呈 在 a<s<z<b 上 连续 ; 


2) &(z,s) 在 a 委 :和 zx 和 9 上 处 处 不 为 零 ; 

3) j (0) 一 0; 

4) Frz) 和 j(z) 在 ao 生 z< 和 0 上 连续 。 

如 果 上 述 条 件 成 立 ,那么 式 (6 - 23) 有 唯一 的 连续 解 , 且 其 解 与 式 (6 - 24) 等 价 。 

如 果 &(z,z) 一 0, 那 么 式 (6 - 24) 仍 然 是 第 一 类 Volterra 积分 方程 ,可 以 再 对 两 边 求 偏 
因此 上 述 定 理 可 以 推广 , 即 

定理 6.4 

对 于 第 一 类 Volterra 积分 方程 (6 - 23) ,如果 核 &(z,s) 连 续 , 且 关于 工 有 ?十 1 阶 导数 ,并 


9 2 aiE] 
下 [ 赤 ] = 沽 | .一 [二 ] =。 
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而 [ 绑 ] ， 关 0, 如 果 7z), 广 Cz)，… 是 :rcz)| 一 0, 则 原 方程 66 -23) 存 在 唯一 的 连 
续 解 ,并 与 第 二 类 Volterra 积分 方程 (6 -25) 等 价 。 
DrHk(Czys) de 
本 0 六 
>(Cz) 十 | (ds 下 (6-25) 








[ 攻 . [区 


方便 起 见 ,假设 当 第 一 类 Volterra 积分 方程 满足 定理 6. 3 的 条 件 时 ,可 以 利用 下 面 程序 


转化 成 第 二 类 Volterra 积分 方程 ,再 求 其 数值 解 , 代 码 如 下 : 


function [X,Y] = Volterralto2(ker,f,lambda,a,b,n) 

求 解 满足 定理 6.3 条 件 的 第 一 类 Volterra 积分 方程 。 方 法 是 转化 成 第 二 类 Volterra 积分 方程 再 求解 
$ker 函数 句柄 , 原 积分 方程 的 核 的 表达 式 ， 

,方程 右 端 自由 项 f(x) 的 函数 句柄 ; 

% ab 积分 上 下 限 ,n, 求 积分 的 时 候 , 区 间 [a,b] 被 等 分 的 个 数 。 

% X,[a,b] 上 的 节点 

g% Y, 与 X 对 应 的 Y(x) 的 近似 值 

SYyms Xx S 

k= ker(x',s)# 风 得 到 符号 表达 式 , 为 了 方便 公式 推导 ,为 转化 成 第 二 类 Volterra 积分 方程 做 准备 
fx=f(x); 

difffx= diff(fx,x); 

diffkx = diff(k,x); % 核 关 于 x 的 偏 导数 

Kxt=- diffkx/ker(x,x);g% 得 到 变换 后 的 第 二 类 Volterra 积分 方程 的 核 

RE = difffx/ker(xyx); 负 得 到 变换 后 的 第 二 类 Fredholnm 积分 方程 的 自由 项 

eval(['K= @(x,s) char(Kxt)， 门 ); 

eval([F = @(x)' char(Ft) ,四 )， 

[X,Y] = Volterra2(K,F,lambda,a,b,n)} 


6.8.3 实 例 


下 面 看 一 个 第 一 类 Volterra 积分 方程 求解 的 例子 。 
【 例 6.8 -1】 求解 第 一 类 Volterra 积分 方程 


oscz-oycod = sin(z)，0 生 < 生 xz 扩 2 
0 


其 解析 解 为 
3(2) 一 1 
利用 Volterralto2 函 数 求 其 解 , 求 解 过程 和 结果 的 代码 如 下 : 


>> clear 
format long 
ker = 四 (x,s) cos(x 一 5); 
E= @sin; 
[xX, 中 = Volterralto2(ker,f,1,0,2,10) % 区间 [0,2] 等 分 10 份 求解 
X= 
Columns 1 through5 欠 
0 ”0.200000000000000 “0.400000000000000 “0. 500000000000000 0. 800000000000000 


* 沁 尚 闪 六 灿 和 由 生 呈 9SVTIVJ 济 由 本 沿 涂 诗 济 关 过 -本 澳 言 训 吉 畸 互 直 于 尘 防 刘 
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从 上 面 结果 可 以 看 出 ,数值 求解 的 结果 和 精确 值 已 经 非常 接近 了 。 
【 例 6.8 -2】 求解 第 一 类 Volterra 积分 方程 : 


sincn 一 5 十 2)y(s)ds 一 


16sin(VZ) 一 6zsin(VZ) 一 16 Vzcos(Vz) 十 2ztcos(VZ) 十 
sin(z)(2sin(VZ) 一 2Vzcos(VZ)， 0 过 过 z 入 2 
其 解析 解 ; 
y(Cz) 一 sin(Vz) 
利用 Volterralto2 函数 求 其 解 ,求解 过 程 和 结果 的 代码 如 下 : 
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plot(GX,Y，o 5hold off 
legend( 解 析 解 "Volterralto2 函数 求解 结果 location best ) 


从 上 述 结果 以 及 图 6. 6 中 看 以 清楚 看 出 ,Volterralto2 函数 得 到 的 结果 和 真实 解 误 差 很 小 。 
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口 “Volterratto2 函 数 求解 结果 


者 




















图 6.6 数值 解 与 解析 解 对 比 
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7.1 业 例 9: 全 局 最 优化 的 讨论 


全 局 最 优化 是 个 很 复杂 的 问题 ,目前 方法 有 多 种 ,但 每 种 方法 都 有 其 局 限 性 。 本 案例 目的 
在 于 通过 一 系列 优化 实例 来 展示 MATLAB 最 优化 的 一 些 方法 技巧 。 


本 节 先 介绍 一 种 求全 局 最 优化 的 方法 一 一 随机 行走 法 。 该 方法 的 优点 是 操作 简单 ,不容 
易 陷 人 局 部 极 小 值 , 缺 点 是 计算 量 比较 大 。 


7.1.1 随机 行走 法 寻 优 介绍 


随机 行走 法 基本 过 程 如 下 (以 二 维 情况 为 例 , 读 者 可 以 很 容易 地 推广 到 ) 维 情形 ) ; 
1) 首先 限定 初始 迭代 点 *, 初 次 行走 步 长 1。 


2) 为 了 产生 合适 的 和 迭代 控制 次 数 N, 置 初 值 1。 
3) 当 &<N 时 ,随机 生成 一 个 (一 1,1) 之 间 的 二 维 向 量 w, 并 标准 化 w:u/norm(u) 。 令 


X1=xXx+ lamda x《〔《u/norm(u)); 
完成 第 一 步行 走 。 

4) 计算 函数 值 , 如 果 Foxz) 一 7FCxz), 即 找到 一 个 比 初始 值 好 的 点 ,那么 人 重新 置 1, 回 到 
2) 处 。 

否则 & 一 & 十 1, 回 到 3) 处 。 


5) 如 果 连 续 N 次 都 找 不 到 更 优 的 值 , 则 认为 ,最 优 解 就 在 以 当前 最 优 解 为 中 心 , 当前 步 
长 为 半径 的 球 内 ,这 时 候 , 我 们 把 》 减 半 , 回 到 1) 处 ,再 开始 新 一 轮 行走 。 

这 个 过 程 直到 <<e 时 结束 (e 是 提前 设置 的 一 个 比较 小 的 数 ) 。 

实现 基本 的 随机 行走 法 的 MATLAB 代码 如 下 : 


function [mx,minf] = randwalk(f,x,lamdavepsilon,N) 

第 随机 行走 法 求 函数 的 极 小 值 。 输 入 王 为 所 求 函数 的 句柄 ， 

#%x 为 初始 值 。lamda 为 步 长 。epsilon 为 控制 lamda 的 中 小 的 贱 值 妈 lamda 减 小 到 epsilon 时 

此 迭代 停止 。 

%N 为 为 了 产生 较 好 点 的 迭代 控制 次 数 。 

负 本 数 返回 值 nx 为 n 次 试验 得 到 的 最 优 解 ,minf 为 响应 的 最 优 值 。 
EL=fCx(1),x(2))3 
while(landa> = epsilon) 

kk=1; 

while(k<=N) 


ee 
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us= unifrnd( 一 1,1,1,2)， 
xl =x+ lamda#x (u/norm(u)); 
fl1 = EC(xl(1),xl(2))， 
填 fl1<fl 
fl = fl1; 
X=X1; 
k= 1; 
else 
k=k+li 
end 
end 
lanmda = lamda/2; 
end 
mX=Xl5 
minf = fl; 


可 以 利用 随机 行走 法 对 下 述 针 状 函 数 寻 优 ， 
【 例 7.1-1] 求 下 列 函 数 的 最 大 值 ， 
AD=SmCD+1 人- 了 
其 中 ， 
7 一 V(z 一 50)5 干 (y 一 50)5 十 ei 0 委 z,y 委 100 


该 函数 的 三 维 图 形 如 图 7. 1 所 示 。 
-一 一 


十、 有 | __ - 一 


9 
了 1 





图 7.1 针 状 函数 三 维 图 


从 图 7.1 可 以 看 出 该 函数 是 一 个 多 峰 本 数 ,在 (50,50) 处 取得 全 局 最 大 值 1. 151 2, 第 二 
极 大 值 在 其 全 局 最 大 值 附近 ,一 般 传 统 优化 方法 很 容易 陷 和 第 二 极 大 值 ， 

经 过 实际 测试 表明 ,当初 值 [z,] 位 于 以 (50,50) 为 圆心 ,半径 为 大 于 1 大 于 2 的 圆 域 
内 ,随机 行走 法 几乎 都 能 找到 最 优点 。 下 面 给 出 该 方法 和 MATLAB 自 带 的 fminsearch 的 
对 比 。 

比较 前 的 准备 工作 是 建立 randwalk 和 fminseareh 各 自 需要 的 目标 函数 的 函数 句柄 ， 
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比较 结果 代码 如 下 : 





可 见 yrandwalk 比 fminsearch 的 有 效 搜索 范围 要 大 ,fminsearch 在 初始 值 为 (49. 65， 
49. 65) 时 按 如 上 默认 设置 尚且 不 能 迭代 到 全 局 最 优 解 (读者 如 果 有 兴趣 可 以 自行 调整 fmin- 
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search 函数 优化 的 设置 选项 ,看 能 否 和 迭代 到 全 局 最 优 解 ), 而 随机 行走 法 在 初始 值 为 (48. 8， 
48. 75) 时 就 能 迭代 到 最 优 。 

上 述 是 基本 的 随机 行走 法 ,实际 上 ,随机 行走 法 还 可 以 改进 ,改进 后 的 随机 行走 法 大 大 提 
高 了 全 局 寻 优 的 能 力 。 


7.1.2 改进 的 随机 行走 法 导 优 


参考 7. 1. 1 节 对 基本 随机 行走 法 的 介绍 ,在 第 三 步 , 改 进 的 随机 行走 法 是 如 下 处 理 的 ; 

随机 生成 个 (一 1,1) 之 间 的 二 维 向 量 w, 而 不 是 一 个 ,这 样 对 应 半 个 xi 。 从 这 交 个 xi 中 
选取 使 得 7(Cxi ) 最 小 的 z 作 为 行走 目标 。 这 样 大 大 提高 了 全 局 寻 优 的 能 力 ,而 且 对 初始 值 的 
依赖 也 大 大 降低 ,下 面 是 改进 后 的 代码 ; 


二 7 








对 例 7.1-1 求 解 的 结果 如 下 : 
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>>f2= 四 (x,y) -sin(sqrt( (x-50)."2+(7Y-50).”"2 )+exp(1))./(sqrt( (x-50).72+(Y-50).”2 ) 
+ exp(1)) 一 1; 
>> [mx;minf] = randwalknew(f2,[0,0],10,0.00001,1000,10) 
mx = 
50. 0000 50.0000 
minf 富 
=1.1511 
>> [mx,minf] = randwaljknew(f2,[ - 10,6],10,0.00001,1000,10) 
mx= 
50.0000 50.0000 
minf = 
-1.15131 
>> [mx,minf] = randwalknew(f2,[2.9765,0.888],10,0.00001,1000,10) 
ax = 
50.0000 50.0000 
minf = 
= 1511 
>> [mx,minf] = randwalknew(f2,[12.231,3.777],10,0.00001,1000,10) 
本 
50.0000 50.0000 
mmjinf = 
一 1.1511 
>> [mx,minf] = randwalknew(f2,[piyexp(0.653)],10,0.00001,1000,10) 
mx = 
50.0000 50.0000 
minf = 
-1.1511 


从 上 面 的 运行 结果 可 以 看 出 ,改进 后 的 随机 行走 法 适应 性 大 大 好 于 基本 的 随机 行走 法 , 求 
解 的 初 值 要求 也 比 基 本 的 随机 行走 法 宽松 很 多 , 初 值 远离 [50,50] 这 个 最 优 解 较 多 的 时 候 , 璧 
如 初 值 为 (一 10,6),(0,0) 时 也 能 找到 最 优 解 。 而 基本 的 随机 行走 法 则 局 限 在 最 优 解 附近 较 小 
的 范围 内 。 

下 面 是 一 个 隐 范 数 寻 优 的 例子 ,该 隐 郴 数 即 为 例 4. 2 - 3 中 讨论 的 隐 范 数 。 

【 例 7.1-2】 求 下 列 = 关于 z,y 的 隐 函 数 的 最 小 值 。 


z 一 sin( (zz 一 0. 5)2 十 2 癌 )exp( (c 0.5 一 exp( > 二 





2) 
其 中 ,zE[ 一 1,7],yE[ 一 2,2]。 
首先 建立 隐 函 数 的 句柄 。 为 了 方便 读者 使 用 以 及 验证 ,代码 中 所 有 初 值 都 是 随机 初 值 ; 


z= @(x,y)fzero(@(z)z- sin((z#x- 0.5)2+x#2#yY2 一 z/10)* exp(-((x 一 0.5 一 exp( 一 Y+z))2+ 
Y2-z/5+3)),rand)3 


读者 从 下 面 的 测试 中 可 以 看 出 改进 的 随机 行走 法 的 初 值 选 择 范 围 非 常 具有 弹性 : 
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z= 加 Goy)fzero(@(z)z- sin((zxx-0.5)2+Xxx2xY2-z/10) # exp( 一 ((x 一 0.5 一 exp(-Y+z))2+... 
Y2-z/5+3))，rand); 
>> format long 
# (由 于 x,Y 被 限定 在 [- 1,7],[- 2,2], 因 此 初 值 步 长 设 为 5 左右 和 区 间 半 径 相仿 ， 
# 初 值 随机 给 出 ,每 步 有 5 个 位 置 供 挑选 ) 
tic,[mxvminf] = randwalknew(z,[unifrnd( -1,7),unifrnd( 一 2,2)],5,0.000001,100,5) ,toc 
mx = 
2. 898268658270597 - 0.857312901262032 
minf = 
-0.023354083261439 
Elapsed time is 9.599392 seconds. 
>> tic,[mxcyminf] = randwalknew(z,[unifrnd( -1,7) yunifrnd( 一 2,2)],... 
2.5,0.000001,100,5) ,toc 
人 2 
2. 898271925482332 - 0.857312612817192 
minf = 
一 0.023354083261446 
Elapsed time is 9.556665 seconds.《〈 节 省 时 间 ,初始 步 长 设 为 2.5) 
>> tic,[mxvminf] = randwalknew(zi[unifrnd( - 1,7),unifrnd( -2,2)]，，. 
2.5,0.000001,100,3) ,toc 
二 
2.898271840049679 - 0.857313122691949 
minf = 
一 0.023354083261433 
Elapsed time is 5. 633099 seconds. 〔 节 省 时 间 ,每 步 有 3 个 位 置 供 挑选 7 


从 以 上 测试 可 以 看 出 ,改进 后 的 随机 行走 法 寻 优 能 力 大 大 增强 。 尤 其 是 每 步 的 随机 挑选 
位 置 越 多 , 步 长 越 适中 ,全 局 寻 优 的 能 力 就 越 强 ,当然 ,计算 时 间 也 越 长 ,但 这 些 都 在 使 用 者 可 


控 范 围 内 。 
【 例 7. 1 - 3】〗 Branins's rcos 函数 寻 优 。Branins's rcos 函数 表达 式 如 下 : 
/rz,) 一 (2 一 呈 环 十 蛙 一 6) +lo0(1 一 起)cos(z) 上 +10， 一 5 和 xz<10,0 二 y 生 15 
该 函数 图 像 可 以 由 下 列 代码 得 到 


E= 四 (x,y) (Y- (5.1/(4# pir2)) * x.-2+ 5/pixx-6).22+10x(1 一 1/(8x pi)) x cos(x) + 10; 
[x,Y] = meshgrid(- 5:0.5:10,0:0.5:15); 
EXY=E(X,Y) 
SUrE(CX,Y,EXY) 
xlabel(x)i 
Yaabel(CY); 
str= strcat(' $ {Nleft(- \frac{51\，x2}{40\，{\pij-2) + \fracf{5N\，x}{\pi) 
"+ 了 - 6\right)} ”2 - \cosN\! \left(xNright)\， NILeft(\frac{(5}{f4N，Npi 
"一 10\right)+10$57)5 
t 让 le(str，interpreter' ,latex',, fontsize',15) 
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Branins s rcos 函数 有 三 个 全 局 最 小 值 点 , 取 值 为 0. 397 887 ,分 别 在 (一 pi,12. 275) pi， 
2.275),(9.42478,2.475) 三 处 ,各 种 优化 方法 在 求 Branins's rcos 函数 全 局 最 优 时 很 容易 陷 
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和 局 部 最 优 值 0. 844 7, 有 兴趣 的 读者 可 以 使 用 MATLAB 自 带 的 各 种 优化 方法 ,如 遗传 算法 ， 
(相应 函数 ga) 、 模 拟 退 火 ( 相 应 函数 simulannealbnd) 、 模 式 搜索 (相应 函数 patternsearch) 等 和 
优化 函数 fminsearch,fmincon,fminunc 尝试 一 下 ,会 发 现 比 较 难 找 全 全 局 最 优点 。 这 里 利用 
随机 行走 法 进行 求解 ,代码 如 下 : 


/信人 -3 本 + 间 br6-eos[ 二 -lojrl0 





图 7.2 Branins's rcos 函数 图 像 


f=@(x,y) (7Y- (5.1/(4* pir2)) xx. ”2+5/pixx=-6).-2+10#(1 一 I/(8xpi))#cos(x) +10; 
[mx,minf] = randwalk(f,[unifrnd( - 5,10),unifrnd(0,15)],0.5,0.00001,100); 
5 和 

-3.1416 12.2750 
minf = 

0.3979 
>> [mx,minf] = randwalk(f,[unifrnd( - 5,10) ,unifrnd(0,15)],0.5,0.00001,100) 
mx = t 

9.4248 ”2.4750 
jin 和 = 

0.3979 
[mx,minf] = randwalk(f,[unifrnd(- 5,10),unifrnd(0,15)],0.5,0.00001,100)7 
mx = 

15.7080 12.8750 
minf = 

0.3979 
[mx,minf] = randwalk(f,[unifrnd( - 5,10)，unifrnd(0,15)],0.5，0. 00001,100) 二 
mx 

3.1416 ”2.2750 
minf = 

0.3979 
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从 上 面 求解 过 程 来 看 ,基本 的 随机 行走 法 很 快 就 找 全 了 所 有 的 全 局 最 优 解 , 限 于 篇 幅 这 里 
就 不 再 尝试 改进 的 随机 行走 法 了 ,有 兴趣 的 读者 可 以 自行 尝试 。 可 以 预见 的 是 ,改进 的 随机 行 
走 法 也 可 以 轻而易举 找到 所 有 的 全 局 最 优 解 。 


7.2 娄 例 10:fsolve 未 非 线 性 方程 组 的 应 用 


7.2.1 概 述 


MATLAB 中 fsolve 函数 可 以 用 来 求解 非 线性 方程 组 。fsolve 函数 功能 强大 ,可 以 求解 很 
多 种 类 型 的 非 线性 方程 组 ,尤其 是 一 些 用 符号 求解 函数 solve 无 法 求解 的 方程 组 。 本 案例 目 
的 在 于 通过 求解 一 些 非 线 性 方程 组 ,帮助 读者 熟悉 fsolve 的 用 法 。fsolve 函数 的 调用 语法 以 
及 简单 示例 可 以 参看 其 帮助 文档 。 这 里 不 再 进行 叙述 。 


7.2.2 四 元 非 线性 方程 组 的 求解 


本 小 节 将 用 fsolve 函数 求解 一 个 四 元 非 线性 方程 组 。 
【 例 7.2-1]】 求 以 下 非 线性 方程 组 的 根 : 
:加 十 力 (1 一 exp( 一 (加 。(0)))) 一 51. 61 
加 十 加 (1 一 exp( 一 (加 。(9.78) 避 ))) 一 51.91 
加 十 加 (1 一 exp( 一 ( 因 。(30. 68) 加 ))) 一 53. 27 
加 十 加 (1 一 exp( 一 ( 思 。(59.7) 六 ))) 一 59. 68 
用 fsolve 郴 数 可 以 求解 上 面 的 方程 ,求解 代码 如 下 : 


(7-3) 





喇 


function p = fsolveDemol 
p0= [51.61; -1;0;1]) 
options = optimset( MaxFunEvals',20000," MaxTIter',2000); 
[p,fval] = fsolve(@f,p0,options) ; 
function F= f(P) #% 待 求解 的 方程 
FE= [P(1) + PC(2) * (1- exp(- (P(3) *(0)”p(4)))) -51.61) 
P(1) + P(2) * (1- exp(- (p(3) * (9.78)p(4)))) - 51.913 
pP(1) + P(2) * (1 exp(- (P(3) * (30.68)”p(4)))) - 53.273 
p(1) + P(2) * (1- exp(- (p(3) x* (59.7)”"p(4)))) - 59.68;]; 
end 
end 


运行 该 程序 代码 ,结果 如 下 : 


p = fsolveDemol Rs 
Optimization terminated: first 一 order optimality is less than options.TolFun. 
Pp= 

51,.609999999999999 

一 0. 465222188130621 

一 0.053730715604489 ， 

0.976132921502588 
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如 果 我 们 把 fsolve 的 初始 值 p0 设 为 随机 的 , 即 把 fsolveDemol 第 三 行 改 为 如 下 代码 : 


汪汪 站 1,1);rand]， 
则 运行 fsolveDemol 多 次 还 可 以 得 到 另 一 组 解 : 


P= 
51. 609999999999999 
一 0.134520891677175 
一 0.241198737479646 
0.693446385899554 


7.2.3 九 元 非 线性 方程 组 的 求解 


【 例 7.2-2】 求 以 下 非 线性 方程 组 的 根 : 
23. 3037zs 十 (1 一 六 z)zs (exp(zs (0.485 一 0.0052095zr 一 0. 0285132zxs)) 一 1) 一 28. 5132 一 0 


一 28. 5132z: 十 (1 一 zizz)zt(exp(zs(0. 116 一 0. 0052095zr 十 0. 0233037zs )) 一 1) 十 23. 3037 王 0 
101. 779z 十 (1 一 Zizs)zs (exp(zs(0.752 一 0.0100677z 一 0. 1118467zxs ))7 一 1) 一 111. 8467 一 0 

一 111. 8467zi 十 (1 一 记 zz) zi (exp(zs( 一 0.502 一 0.0100677zr 十 0. 101779zs )) 一 1) 十 101.779 一 0 
111. 461zz* 十 (1 一 izz)zs (exp(zs(0. 869 一 0.0229274z 一 0. 1343884zs )) 一 1) 一 134. 3884 王 0 

一 134. 3884zi 十 (1 一 zizs)zi(exp(zs(0.166 一 0.0229274z; 十 0. 111461z )) 一 1) 十 111. 461 一 0 
191. 267z; 十 (1 一 zz ) za (exp(zs(0. 982 一 0. 0202153z 一 0. 2114823xzs )) 一 1) 一 211. 4823 一 0 

一 211. 4823zi 十 (1 一 zizz)zi(exp(zi( 一 0.473 一 0.0202153z; 十 0. 191267z )) 一 1) 十 191. 267 一 0 





ia 一 Za 一 0 

(7 一 4) 
上 述 方程 组 比较 复杂 ,难以 求 其 解析 解 ,只 能 通过 数值 方法 求解 。 相 应 的 MATLAB 程序 
代码 如 下 : 


function [x,x0,fvalvexitflag] = fsolveDemo2 

x0= unifrnd(0,1,1:925% 生成 随机 初始 值 

options = optimset(" MaxFunEvals',20000，MaxIter ,5000); 

[x,fval,exitflag] = fsolve(@f,x0yoptions) 5 

Eunction FE = f(x) 
BF= [23.3037* x(2) + (1 - x(1) * x(2)) * x(3) * (exp(x(5) *《〈《0.485 -- 0.0052095*#x(7) 一 ... 

0.0285132* x(8))) -1) 一 28.51323 
一 28.5132# x(1) + (1 一 x(1) * x(2)) * x(4) #* (exp(x(6)#《0.116 一 0.0052095 xx(7) + 。 
0. 0233037 * x(9))) -1) + 23.30373 旭 说 
101.779x x(2) + (1 一 x(1) xx(2)) * x(3) *〔exp(x(5)#(0. 752- 0.0100677 * x07) 2 
0.1118467* x(8))) - 1) - 111.8467， 
一 111.8467x x(1) + (1 一 xC1) xx(2)) x x(4) # (expCx(6) %( 一 0. so2- aolooemyxxt7) 上 
0.101779*#* x(9))) -II) + 101.779# 证 
111.461 * x(2) + (1 一 x(1) * x(2)) * x(3) * (exp(x(5) *( 0.869-0. 人 xp - 惟 
0.1343884 * x(8))) - 1) -134.38845 
一 134.3884 * x(1) + (1 一 x(1) *#*Xx(2)) #* Xx(4) #(exp(x(6) *《0.166 一 0. 人 ;党 训 
0.111461* x(9))) -1) +111.461; 上 
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191.267 * x(2) + (1 一 x(1) * x(2)) * x(3) x (exp(x(5) * (0.982 - 0.0202153 xx(7) 一 .. 
0.2114823 * x(8))) -1) - 211.4823; 
一 211.4823# x(1) + (1I 一 x(1)#x(2)) xx(4) x (exp(x(6) x (一 0.473 - 0.0202153* SC 
0.191267* x(9))) -1) +191.267; 
x(1) * x(3) -~ x(2) xx(4)]; 
end 
end 


经 验证 ,试验 几 次 后 可 以 求 出 原 方程 组 的 一 组 解 x, 以 及 相应 的 初 值 x0， 


x= 
Columns 1 through 4 
0. 898509997792005 ”0.973967802006412 ”11. 648633061077305 10.746159415564769 
Columns 5 through 8 
3. 250825125869217 “6.710547896318697 “- 8.764002776221822 1. 251334798194942 
Column 9 
一 0.525131249862975 

x0 = 
Columns 1 through 4 
0.847084730088295 ”0.080752928833763 ”0. 878454584465559 “0. 706069147286000 
Columns 5 through 8 
0. 244023559973308 ”0.302694211806679 0.195234631882628 0. 377503658981705 
Column 9 
0. 582932595277113 


如 果 我 们 要 求 其 一 组 全 部 大 于 0 的 解 该 如 何 办 呢 ? 容易 想到 的 一 种 办 法 是 用 while 循 
环 , 当 求 得 的 解 不 是 全 部 大 于 0, 或 者 fsolve 的 第 三 个 返回 参数 exitflag 的 值 不 等 于 1 时 循环 
一 直 进行 ,直到 循环 条 件 不 满足 。 这 样 可 以 用 下 列 代码 求 一 组 全 部 大 于 0 的 解 ; 


x0=[]; 
X=[; 
exitflag= 03; 
while sum(x> = 0) 一 =9 | exitflag~ =1 
[x,x0,fval,exitflag] = fsolveDemo2; 
ifE exitflag== 工 
X0 = [X0;x0]; 
X= [Xix]; 
end 
end 


用 以 上 代码 寻找 解 , 以 及 全 部 大 于 0 的 解 。 找 到 一 组 解 就 记录 下 来 ,同时 直到 找到 全 部 分 
量 大 于 0 的 解 时 退出 循环 。 运 行 上 述 代码 ,循环 10 次 找到 了 三 组 (其 实 是 两 组 ,有 两 组 解 重 
复 ) 解 ,下 面 给 出 了 找到 的 解 以 及 相应 的 初 值 : 


解 X: 

X= 汪 
0.8985 0.9740 11.6486 10.7462 3.2508 6.7105 -8.7640 .1.2513  - 0.5251 
0.8985 0.9740 11.6486 10.7462 3.2508 6.7105 -8.7640 1. 2513 “一 0.5251 
0.9000 0.4500 1.0000 2.0001 8.0000 7.9997 5.0000 1.0000 2,0001 
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7.2.4 非 线性 积分 方程 的 求解 


在 第 6 章 我 们 讨论 了 Fredholm 积分 方程 以 及 Volterra 积分 方程 这 样 一 些 线性 积分 方程 
的 求解 方法 , 即 未 知 函数 >(z) 不 论 在 积分 号 下 还 是 在 积分 号 外 都 是 一 次 的 ,而 实际 中 还 有 大 
量 的 非 线性 积分 方程 。 非 线性 积分 方程 是 指 未 知 函数 y(z) 不 是 一 次 的 ,一 些 非 线性 积分 方 
程 可 以 通过 求解 线性 积分 方程 的 数值 解法 来 求解 。 只 不 过 这 时 求解 的 不 是 线性 方程 ,而 是 求 
解 非 线性 方程 了 。 这 时 可 以 利用 求解 线性 积分 方程 的 方法 结合 fsolve 函数 进行 求解 。 这 里 作 
为 示例 ,求解 一 个 第 二 类 非 线性 Volterra 积分 方程 。 

【 例 7.2-3】 求解 下 列 非 线性 Volterra 积分 方程 : 


CD) 一 | 一 DY God 一 于 一 生 z: 一 二 十 际 十 2 十 1，0<s<z<l 
其 解析 解 为 
3(Zz) 一 并 十 1 


采用 Newton - Cotes 积分 方法 离散 上 述 方程 ,并 利用 fsolve 求 解 积分 节点 上 的 > 值 , 相 
应 的 MATLAB 程序 代码 如 下 





“ 沪 册 闪闪 下 床 圳 禾 二 8VTIVIN 淹 由 机 这 沿江 评 六 天 寺 。 西海 言 宁 涯 办 瑟 此 于 党 院 淋 
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利用 上 述 程序 求解 例 7. 2 - 3, 代 码 如 下 ， 


“ 洲 凡 证 鹿 籼 症 风 贱 AHGVTIVIN 郑 举 轴 区 由 徐 计 泳 天 二 。 西 淹 言 订 示 妾 瑟 世 于 学 演 浊 





AL/fun 
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Www. 让 Love 人 afiab.cn 


。 汪 册 闪闪 煌 证 册 几 十 8VTIVIN 淹 由 市 信 几 和 洽 亲 泳 关 二。 西 谢 言 本 吉 轨 瑟 机 慰 尝 演讲 
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than max(options.TolFun2,eps) and sum- of - squares of function 
values is less than sqrt(options.TolFun) . 
X= 
Columns 1 through 8 
0 0.1000 0.2000 0.3000 0.4000 0.5000 0.6000 0.7000 
Columns 9 through 11 
0.8000 0.9000 1.0000 
Y= 
Columns 1 through 8 
1.0000 1.0999 1.2000 1.3000 1.4000 1.5000 1.6000 1.7000 
Columns 9 through 11 
1.8000 1.9000 2.0000 
fval = 
1.0e 一 015 * 
Columns 1 through 8 
0 -0.2220 00.2220 000.2220 0 
Columns 9 through 11 
-0.2220 0.2220 0.4441 


从 求解 出 的 结果 来 看 ,其 和 解析 解 相差 不 大 。 读 者 可 以 参考 上 述 程序 求解 其 他 类 型 的 非 
线性 积分 方程 。 需 要 注意 的 是 初始 值 Y0 的 选取 ,如 果 返 回 的 fval 和 0 相差 较 大 , 则 要 改变 初 
始 值 Y0, 多 尝试 几 次 。 


7.3 案例 11: 浙 变 风波 导 方 程 求解 


7.3.1 求解 渐变 光波 导 的 模 方程 
【 例 7.3-1] 求 以 下 非 线 性 方程 的 根 : 
全 m 十 daNX 工 (车 )exp[ 一 (等 ) ,ee 生 生 4 一 刺 旺 = 
1xl10 开 乓 ) 十 名 
于 + 一 (Ci 好 入 2 | 
4 于 一 下 2( VE 一 友 N)” 








《7-5) 





其 中 : 

715 一 1.520167; 

?太一 1.548167; 

丰 一 2rx/0. 6328e 一 6; 

MC 一 1; 

也 一 2e 一 6 

Ni 一 1.5436744; 

dN 王 0.0235072。 

该 方程 是 求解 渐变 光波 导 的 模 方程 ,形式 比较 复杂 ,N 是 未 知 数 ,要 想 求解 N 得 计算 等 式 
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左 侧 的 积分 ,这 么 复杂 的 积分 只 能 通过 数值 方法 求解 。 结 合 本 书 第 6 章 介绍 的 quadl1 十 array- 
fun 的 方法 ,可 以 写 出 求解 代码 如 下 : 


function N = example731(xc) 

ns =1.520167; 

nf=1.548167; 

k=2x*pi/0.6328e- 6; 

nc=15 

D=2e-6; 

N1 =1.5436744; 

dN = 0.0235072; 

$ 用 匿名 函数 形式 表示 关于 的 复杂 非 线 性 方程 

fFE=@(N quadl(@(7) kx sqrtCCns+ dNw Y/CpixD)， * exp( - (Y/D).2). * arrayfun(@(Y) ... 
quadl(@(s) exp(- s.-2)./(s.-2+(Y/D).-2)， -0.5,0.5),y)).2-N.2),le-10,xc).，. 
一 pi/4 一 atan(sqrt((N.2 -nc2)/(NI2 -N-2)) +(CK2x NILx 《一 1.855800789988048e4))/. . . 
(COc2 * N1 2 一 K2xN. 2)-1.5x2)); 

N= fzero(ff,[1.52017,1.5246095])， 


对 于 xc 一 1. 537433e 一 6, 运 行 上 述 代码 ,结果 如 下 : 


>> format long 
>> N= example731(1. 537433e 一 6) 
N= 

1.524606031629952 


需要 说 明 的 是 ,fzero 求 纤 的 解 时 ,区 间 [1. 52017 ,1. 5246095] 是 按 下 述 方法 确定 的 ， 

因为 禾 在 N 一 1.52 时 大 于 0, 而 健在 N=1.543 时 值 是 虚数 ,所 以 fzero 的 求解 区 间 右 侧 
不 能 包含 1. 543 ,具体 方法 就 是 用 娃 函数 试验 1. 543 附近 的 值 , 直 到 区 间 右 侧 的 值 是 负数 ,或 
者 实 部 是 负数 , 虚 部 很 小 为 止 。 区 间 [1. 52017,1. 5246095] 就 是 这 样 得 到 的 。 

关于 含有 积分 的 非 线性 方程 求解 ,7. 3. 2 节 介 绍 的 例子 也 是 不 错 的 一 个 实例 。 


7.3.2 二 维 渐 变 光 波导 方程 作 图 
【 例 7.3- 2】 对 下 述 方程 作 An 与 D 的 关系 图 。 
六 VE(Cz) 一 厅 一 
于 十 tan 上 [ V 碌 一 好 Ar 砍 " (ms 十 Am) ] (7-6) 


V 民 Cn 十 An 和 一 夯 VD(VRECO 二 AD 一 厅 ) 











其 中 : 
7(Z) 一 7 十 Am 。 erfc( 若 ) 的 一 少 ) 
2r 2r 
2 TY 省 .04,0.08j]。 
mz(zo) 一 1.554 336 ,人 和 一 5528XT0-5 8=1.554 336&,An 的 取 值 范围 为 [Fo ] 


这 个 方程 是 针对 渐变 平面 光波 导 的 ,也 叫 二 维 渐变 光波 导 。 其 中 第 一 个 公式 mn(z) 是 它 的 
折射 率 分 布 ,”% 是 基板 折射 率 ,An 是 折射 率 增 量 。 下 面 给 出 了 关于 An 的 函数 代码 ， 


“ 洲 册 间 准 业 征 赴 片 寻 HYTIVIN 光 让 林 注册 小 讲 汶 天 二 。 西 涡 言 示 让 轨 瑟 类 于 学 防 洒 
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LA/MKfuni 


上 
WwW.iLoveMarleb cn 


* 族 党 证 痊 曙 症 赴 生 玫 8SVTILVIN 郊 让 机 这 沿 涂 诗 泳 天才- 瑟 产 言 永吉 委 互 直 慰 尝 辽 讲 





function Y= mytdraw(Cx) 


MATLAB 高 效 编程 技巧 与 应 用 ; 25 个 案例 分 析 


NO = 1.554336; $% 赋值 ,x- deltan Y-D 


k=2x*pi/(632.8e 一 9)5 
BO =Kkx NO; 
ns=1.521145; 





eql = @(Y) quad1(@(z) k* sqrt((Cns + x,. x erfc(z./7)). 2 一 NO2)，，. 
0,Yx erfcinv((NO - ns)/x)) - pi/4- atan(sqrt((B02 -2)/(C2x (ns+x) 2 一 BO2)) 一. 
Xn#(k2) * (ns+x)/(pir0.5xY#(k2* (ns+x) 2 一 B02) 1.5)); 


Y= fzero(eq1,0.000001); 
end 


画图 代码 如 下 : 


clear all 


x= linspace(0.04,0.08,801);%x 赋 值 挨个 画图 


Y= zeros(size(x)); 

for i= 1:length(Cx) 

Y(Ci) = mytdraw(Cx(i)); 

end 

Plot(x,Y) 

xlabel(\Deltan ');Ylabel(CY')5 


画 出 的 图 形 如 图 7. 3 所 示 。 
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图 7.3 An 与 忆 的 关系 图 


EE3 7.4 娄 例 12: 踪 传 算法 在 复 亲 系统 可 请 度 和 完 余 度 分 配 优化 中 的 应 用 


7.4.1 问题 提出 


随 着 科学 技术 和 社会 的 不 断 发 展 进步 ,人 们 需要 解决 生产 .生活 中 的 问题 的 规模 以 及 难度 
越 来 越 大 ,这 时 往往 需要 一 系列 功能 模块 之 间 的 相互 配合 才能 完成 。 这 些 模 块 之 间 的 功能 有 
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的 是 相同 的 ,有 的 是 缺 一 不 可 的 。 这 些 模块 有 效 组 织 在 一 起 构成 复杂 的 系统 。 

复杂 系统 的 可 靠 度 依赖 于 各 子 系统 和 模块 的 可 靠 度 ,而 提高 子 系统 和 模块 的 可 靠 度 必然 
引起 系统 总 造价 增加 ,这 种 依赖 关系 是 非 线性 的 。 在 一 定 可 靠 度 下 ,提高 系统 模块 的 宛 余数 将 
引起 系统 造价 大 幅 上 升 , 并 且 由 于 成 本 造价 以 及 先天 等 条 件 的 限制 ,单独 依靠 提高 某 个 模块 可 
靠 度 来 提高 控制 系统 可 靠 度 是 困难 的 。 因 此 ,系统 可 靠 度 的 最 优 分 配 非 常 重要 。 保 证 子 系统 
具有 优化 配置 的 可 靠 度 指标 可 以 通过 提高 模块 的 可 靠 度 指标 和 增设 宛 余 模块 实现 。 然 而 , 提 
高 子 系统 可 靠 度 指标 和 增设 宛 余 模块 , 哪 种 方式 更 经 济 是 设计 中 需要 考虑 的 重要 问题 。_ 般 
情况 下 ,最 优 宛 余 个 数 与 子 系统 的 可 靠 度 指 标 相关 。 因 此 ,模块 的 可 靠 度 指 标 和 子 系统 宛 余数 
应 同时 优化 ,以 便 在 满足 约束 范围 内 使 整个 系统 的 可 靠 度 最 优 。 换 句 话说 ,就 是 要 求 系统 设计 
者 不 仅 要 确定 宛 余数 ,而 且 还 必须 确定 每 个 模块 的 可 靠 度 。 这 是 一 个 模块 可 靠 度 指标 和 和 宛 余 
数 一 体 化 并 发 设计 的 问题 。 

本 案例 研究 复杂 系统 可 靠 度 和 宛 余 度 分 配 优化 问题 ,建立 子 系统 可 靠 度 指标 和 宛 余 个 数 
一 体 化 并 发 设计 问题 的 提 法 ,将 遗传 算法 应 用 于 复杂 系统 可 靠 度 和 宛 余数 的 最 优 分 配 这 类 非 
线性 连续 变量 和 离散 变量 混合 问题 的 求解 ,并 给 出 相应 的 MATLAB 代码 。 


7.4.2 数学 模型 


很 多 复杂 系统 可 以 看 成 是 混合 串 - 并 联系 统 , 即 含有 ) 个 子 系统 ,每 个 子 系统 又 含有 六 个 
并 联 模 块 的 混合 串 - 并 联系 统 。 

提高 系统 可 靠 度 的 主要 方法 是 提高 元 部 件 的 可 靠 度 和 在 系统 中 采用 复式 备份 结构 ,这 两 
种 方法 在 提高 系统 可 靠 度 的 同时 ,增加 了 系统 的 投资 , 权 量 和 体积 。 因 此 系统 可 靠 度 的 优化 设 
计 应 该 在 满足 资金 ` 结 构 、 性 能 等 条 件 的 约束 下 ,提高 系统 的 可 靠 度 ;或 者 在 满足 一 定 可 靠 度 要 
求 时 ,尽量 减少 投资 ,取得 最 大 经 济 效益 。 这 两 种 可 靠 度 优化 问题 的 数学 表达 为 两 种 。 

1) 要 求 系统 的 可 靠 度 最 大 , 即 


Rs: 一 TTRcon) (7-8) 

且 满足 一 些 约 东 条 件 ， 本 
六 岂 人 后 1 (7-9) 
式 中 ,aus (mu) 表 示 第 ! 个 子 系统 中 第 ; 个 模块 关于 约束 条 件 ! 的 数量 ;W, 为 系统 关于 约束 条 


件 : 的 总 数量 。 
系统 可 靠 度 尺 一 般 是 zm, 的 非 线性 函数 。 
2) 要 求 系统 的 投资 最 小 , 即 


Cu 一 六 scomp (7-10) 
满足 系统 可 靠 度 不 低 于 R， 生 
R= ITRcom)>R (7-11) 
且 满 足 其 他 要 求 的 约束 条 件 ， 
w mo<w， Z 一 1,2,……, 《2 一 127 


本 痢 言 训 过 锥 瑟 相 于 导 陀 淋 


“党 沿 六 六 灿 站 出 片 二 8VTIVIN 淹 随机 注册 洲 主演 天 可 - 
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和 
WwW.iLoveMaftlab .cn 


小 沿 间 六 灿 让 由 汪 二 8VTIVIN 淹 序 市 滞 沿 小 讲 洒 天才。 瑟 澳 富 训 坟 入 互 站 慰 党 党 讲 
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带 有 可 选 设计 和 完 余 度 系统 的 可 靠 度 。 
假定 系统 包含 N 个 子 系统 ,对 于 每 个 子 系统 ,系统 设计 者 有 多 个 可 选 设计 来 满足 可 靠 性 
要 求 。 本 案例 中 该 问题 可 以 描述 为 如 下 非 线性 整数 规划 : 


及 
R(O)os 一 及 Comya) 一 [RiCnsyai) (7-13) 
一 1 
st Coma) 一 > co) 入 C (7-14) 
5 
榴 (mya) 一 >)ro(a)mi 扩 隐 (7 -1I5) 
一 


1 委 加 和 受 wj1 私 ww 之 有 
式 中 ,6 为 待 优化 的 参数 向 量 ;ai(i 王 1,2,…,N) 为 第 ;个 子 系统 可 选用 的 设计 ;mm; (Ci 一 1,2,…， 
N) 为 第 个 子 系统 相同 的 宛 余 单元 数 ;uw 为 第 ;i 个 子 系统 相同 的 宛 余 单元 上 界 ;p; 为 第 ;个 子 
系统 可 选用 设计 的 上 界 ;RCm,a) 为 具有 宛 余 单 元 mm 和 可 选 设计 wx 的 系统 可 靠 度 ;CCm,a) 为 系 
统 满足 宛 余 单元 m 和 可 选 设计 w 的 费用 函数 ;mW (ma) 为 系统 满足 元 余 单元 和 可 选 设计 wa 
的 权重 函数 ;C 为 系统 费用 的 总 约束 ;WW 为 系统 权重 的 总 约束 。 
对 串 -并 联 亏 余 系统 的 子 系统 宙 ,有 
及 (ayai) 一 1 一 [1 一 Ri(Ca)] (7 -16) 


7.4.3 址 传 算 法 简介 


遗传 算法 (Genetci Algorithm,AG) 是 模拟 自然 界 生物 进化 机 制 的 一 种 算法 , 即 遵循 适 者 
生存 、 优 胜 劣 汰 的 法 则 ,也 就 是 寻 优 过 程 中 有 用 的 保留 ,无 用 的 则 去 除 。 在 科学 和 生产 实践 中 
表现 为 ,在 所 有 可 能 的 解决 方法 中 找 出 最 符合 该 问题 所 要 求 的 条 件 的 解决 方法 , 即 找 出 一 个 最 
优 解 。 

遗传 算法 最 初 的 目的 是 研究 自然 系统 的 自 适 应 行为 ,并 设计 具有 自 适 应 功能 的 软件 系统 。 
它 的 特点 是 对 参数 进行 编码 运算 ,不 需要 有 关 体系 的 任何 先 验 知识 , 沿 多 种 路 线 进 行 平行 搜 
索 , 不 会 落 入 局 部 较 优 的 陷阱 ,能 在 许多 局 部 较 优 中 找到 全 局 最 优点 ,是 一 种 全 局 最 优化 方法 。 

遗传 算法 提供 了 一 种 求解 复杂 系统 优化 问题 的 通用 框架 , 它 不 依赖 于 问题 的 具体 领域 ,对 
问题 的 种 类 有 很 强 的 鲁 棒 性 ,所 以 广泛 应 用 于 很 多 学 科 。 

基本 的 遗传 算法 的 流程 如 图 7.4 所 示 。 

下 面 对 流 程 图 各 个 步骤 的 意义 以 及 完成 的 工作 进行 说 明 : 

1) 设计 染色 体 编码 方式 。 就 是 将 问题 的 解 用 一 种 码 来 表示 ,从 而 将 问题 的 状态 空间 与 遗 
传 算法 的 码 空间 相对 应 ,这 在 很 大 程度 上 依赖 于 问题 的 性 质 , 并 将 影响 遗传 操作 的 设计 。 由 于 
遗传 算法 的 优化 过 程 不 是 直接 作用 于 问题 参数 本 身 , 而 是 在 一 定编 码 机 制 对 应 的 码 空 间 上 进 
行 的 ,因此 编码 的 选择 是 影响 算法 性 能 与 效率 的 重要 因素 。 针 对 函数 优化 的 编码 技术 主要 有 
二 进 制 编码 十进制 编码 .实数 编码 等 。 二 进 制 编码 将 问题 的 解 用 一 个 二 进 制 0 - 1 字符 串 来 
表示 ;十 进 制 编码 将 问题 的 解 用 一 个 十 进 制 串 来 表示 ;等 等 

2) 随机 生成 初始 群体 。 遗传 算 法 是 群体 型 操作 算法 ,在 对 解 空 间 变 量 进 行 编码 后 , 紧 接 
着 就 要 随机 产生 N 个 遵循 这 种 编码 的 个 体 ( 染 色 体 ) ,构造 遗传 算法 的 初始 群体 ,然后 以 这 个 
初始 群体 作为 起 始点 开始 按 代 搜 索 。 
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图 7.4 造 传 算法 流程 图 


3) 计算 种 群 中 每 个 个 体 适 应 度 。 遗传 算法 在 搜索 进化 过 程 中 一 般 不 需要 其 他 外 部 信息 ， 
仅 用 适应 度 函 数值 来 评估 个 体 或 解 的 优 劣 ,并 作为 以 后 遗传 操作 的 依据 。 适应 度 函 数 表明 个 
体 对 环境 适应 能 力 的 强 弱 , 不 同 的 问题 ,适应 度 函 数 的 定义 方式 也 不 同 。 譬如 ,对 于 简单 的 最 
小 化 问题 ,通常 可 以 直接 将 目标 函数 变换 成 适应 度 函 数 ,可 以 将 个 体 的 适应 度 7(z) 定 义 为 
M 一 C(Cz) 或 e“” ,其 中 M 为 一 足够 大 正 数 ,CCz) 为 个 体 的 目标 值 ,a 二 0。 对 于 复杂 优化 问 
题 ,往往 需要 构造 合适 的 评价 函数 ,使 其 适应 问题 的 特点 ,方便 遗传 算法 进行 优化 。 

由 于 适应 度 度量 意义 下 的 个 体 差 异 与 目标 函数 值 度量 意义 下 的 个 体 差异 有 所 不 同 , 因 此 
若 适 应 度 函 数 设计 不 当 , 将 难以 体现 个 体 的 差异 ,选择 操作 的 作用 就 很 难 体现 出 来 ,从 而 造成 
早熟 收敛 等 问题 。 对 适应 度 进行 调节 是 常用 的 改进 方法 ,如 线性 变换 和 指数 变换 等 , 即 通过 革 
种 变换 改变 原 适 应 度 间 的 比例 关系 。 

4) 是 否 满足 优化 规则 ,这 个 规则 是 事先 制定 的 。 由 于 遗传 算法 可 以 无 限制 进化 下 去 , 初 
始 种 群 进 化 到 一 定 程度 后 往往 很 难 再 有 大 的 改善 ,这 时 候 就 需要 决定 是 否 停止 进化 。 优化 规 
则 的 制定 有 多 种 ,譬如 进化 到 一 定 的 代数 .得 到 的 解 使 得 目标 函数 值 达到 某 个 条 件 等 都 可 以 作 
为 优化 规则 。 

5) 选择 优秀 的 个 体 复 制 (selection) ,又 称 复制 或 繁殖 (reproduction) 。 选 择 操 作 的 目的 是 
为 了 从 当前 群体 中 选 出 生命 力 强 的 染色 体 , 使 它 有 机 会 保留 用 以 繁殖 后 代 。 判 断 染 色 体 优 良 
与 否 的 准则 就 是 各 自 的 适应 度 值 , 个 体 适应 度 值 越 大 ,其 被 选择 的 机 会 就 越 多 。 选 择 操作 体现 
了 达尔 文 的 优胜 劣 汰 、. 适 者 生存 原则 。 选择 的 方法 根据 不 同 的 问题 ,采用 不 同 的 方案 ,最 常见 
的 方法 有 比率 法 .排列 法 和 比率 排列 法 。 

6) 交叉 (crossover) ,又 称 重组 (recombination) 或 配对 (breeding) 。 交叉 操作 是 遗传 算法 


配 澳 言 本 壕 执 互 示 于 尝 了 演讲 
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中 最 主要 的 遗传 操作 ,对 于 选中 用 于 繁殖 后 代 的 个 体 ,随机 选择 交叉 位 置 &, 交 换 两 个 基因 串 
位 置 & 右边 的 部 分 ,产生 两 个 新 的 个 体 , 这 两 个 新 个 体 组 合 了 其 父 代 的 特性 。 例 如 ,有 两 个 二 
进 制 编码 的 个 体 A 和 忆 , 长 度 工 一 5,A 一 ala2a3a4a5,B 一 blb2b3b4b5, 随 机 选择 一 个 整数 《一 
4,A 与 了 经 交叉 后 为 AL 一 ala2a3b4b5,B! 一 blb2b3a4a5。 

7) 变异 (mutatinon) 。 选 择 和 交叉 基本 上 完成 了 遗传 算法 的 大 部 分 搜索 功能 ,而 变异 则 
增加 了 遗传 算法 找到 接近 最 优 解 的 能 力 。 变 异 首先 在 群体 中 随机 地 选择 一 个 个 体 ,以 一 定 的 
概率 随机 改变 基因 串 中 某 个 字符 的 值 。 变 异 操作 是 按 位 进行 的 ,对 于 采用 二 进 制 编码 的 个 体 
来 说 ,就 是 将 1 变 为 0 或 将 0 变 为 1。 变异 发 生 的 概率 极 低 (一 般 取 值 为 0. 001 一 0. 5 之 间 ), 它 
本 身 是 一 种 随机 搜索 ,但 与 选择 .交叉 算 子 结合 在 一 起 ,就 能 避免 由 复制 和 交叉 算 子 引起 的 某 
些 信 息 的 永久 性 丢失 ,从 而 保证 了 遗传 算法 的 有 效 性 。 


7.4.4 实例 分 析 


这 里 以 长 输油管 道 SCADA(supervisory control and data acquisition) 系统, 即 数据 采集 
与 监视 控制 系统 为 例 , 来 说 明 如 何 应 用 遗传 算法 来 对 系统 可 靠 度 和 宛 余 度 进行 分 配 优化 。 

在 对 SCADA 系统 进行 可 靠 度 优化 设计 前 , 作 以 下 假设 ; 

1) 系统 中 采用 的 宛 余 为 主动 宛 余 。 

2) 每 一 个 子 系统 都 是 相互 独立 , 且 是 不 可 维修 的 。 

3) 每 一 个 子 系统 有 两 个 状态 , 即 工作 状态 和 故障 状态 。 

4) 每 一 个 子 系统 的 可 靠 度 为 常数 。 

这 样 ,SCADA 系统 的 优化 设计 问题 可 描述 为 :寻找 最 优 的 各 可 选 设计 子 系统 wm ,az ，…， 
wy, 和 子 系统 宛 余数 mm ,ma ,…,mu, 以 使 系统 在 满足 系统 总 造价 和 总 权重 条 件 下 可 靠 度 尺 
最 高 。 

SCADA 系统 是 具有 宛 余 单 元 和 可 选 设计 的 混合 串 -并 联系 统 , 适 合 于 下 列 可 靠 性 数学 
模型 : 


NN 


R(b)。s 一 及 (mya) 一 [41 一 [1 一 RiCo2]”) (7-17) 
2 
s.t. C(ma) 一 > co)mi 入 C (7-18) 
1 
有 
Ca) 一 > ru(a)mi 祥 砚 (7-19) 
1 一 1 


1 和 受 mu 私 wji1 私 < 委 8 
其 中 :ww 一 2,8 一 3 

式 中 , 子 系统 可 靠 度 R, 是 [0,1] 之 间 的 值 , 而 完 余 数 mi (Ci 一 1,2,…，N) 只 能 取 整 数 。 因 此 ,上 
面 优化 问题 实际 上 是 连续 变量 和 离散 变量 并 存 的 混合 非 线性 规划 问题 。 

一 般 情况 下 ,长 输油管 道 SCADA 系统 包含 有 站 控 PCL 系统 、 调 节 闪 子 系统 、 微 波 通信 系 
统 、 变 电 所 子 系统 .中 心 控 制 系统 、 泄 漏 检 测 系统 六 个 子 系统 。 本 例 是 一 个 含有 六 个 子 系统 的 
SCADA 系统 ,每 个 子 系统 有 三 种 可 选 设计 ,每 一 子 系统 的 完 余 数 最 多 为 2, 所 有 子 系统 的 可 选 
设计 数据 如 表 7- 1 所 列 。 
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表 7-1 宛 余 单元 与 可 选 设计 数据 表 












































约束 条 件 如 下 : 
CCmya) 一 六 cum 二 670 (7-20) 
(aya ) 一 过 证 (7-21) 
所 用 的 遗传 算法 步骤 如 下 : 
1) 根据 可 靠 性 数据 给 出 优化 参数 向 量 6 一 [za ,ai ,ma az,，…，*zawyanw] 的 解 域 范围 ,参数 
向 量 所 有 分 量 均 为 整数 型 。 


2) 确定 种 群 规模 、 交 叉 概率 、 变 异 概率 、 最 大 进化 代数 :种 群 规模 数 为 S= 50; 交 叉 概 率 
了 .=0. 9, 变 异 概率 P。 一 0. 01; 最 大 进化 代数 取 G 一 200。 

3) 种 群 初始 化 :采用 整数 值 编码 ,在 解 的 可 行 域 随机 确定 50 个 个 体 ( 可 能 的 解 ) 构 成 初始 
种 群 。 

4) 计算 每 一 个 个 体 的 适应 度 :适应 度 函 数 采用 如 下 线性 函数 : 


， (CP 一 1) 
JFit(P 了 ) 一 2 一 s 十 2(s 轧 DCNT7 


式 中 ,Ni, 为 种 群 的 大 小 ;P 为 根据 目标 函数 的 大 小 所 确定 的 个 体 在 种 群 中 的 位 置 , 璧 如 ,本 例 
目的 是 最 大 化 目标 函数 ,因此 ,目标 函数 值 最 小 的 个 体 , 其 已 值 为 1, 而 目标 函数 值 最 大 的 个 
体 , 其 P=Ni'sb 为 选择 压力 ,1 和 sz 和 2, 一 般 取 sz 一 1.75。 对 每 一 个 个 体 , 计 算 其 是 否 违反 约 
东 条 件 , 如 果 是 , 则 个 体 的 适应 度 累 加 上 一 个 与 违反 约束 条 件 程度 成 正比 的 正 值 ; 否 则 ,个 体 的 
适应 度 保持 不 变 。 
5) 选择 (繁殖 ) 操 作 :将 种 群 中 的 个 体 适应 度 由 大 到 小 排序 ,然后 根据 单个 个 体 所 对 应 的 
适应 度 确 定 其 繁殖 后 在 交配 池 中 所 占 的 比例 
届 一 mi- (7-23) 


凡 


疡 1 
6) 交叉 操作 :交叉 操作 是 遗传 算法 中 最 主要 的 遗传 操作 。 这 里 采用 离散 交叉 操作 方式 产 


(7--22) 
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生 后 代 。 具 体操 作 方 式 如 下 : 
及 一 ba。 ai 十 bf 。(1 一 ai) 1, 2 (7-24) 

式 7-24 中 ,6 ,0 分 别 为 父 代 Pa ,Ps 的 第 ;i 个 分 量 ;0? 为 产生 的 子 代 的 第 ;个 分 量 ;a， 
E{0,1} ,为 0-1 离 散 均匀 分 布 的 随机 变量 。 

7) 变异 操作 :对 种 群 中 每 一 个 体 以 变量 概率 P,。 随 机 改变 某 一 分 量 的 值 。 改 变 方式 可 以 
灵活 设 定 , 例 如 , 某 一 分 量 可 取 “ 个 值 , 变 异 的 时 候 可 以 在 剩 下 的 & 一 1 个 值 里 随机 挑 一 个 替换 
掉 原 来 的 。 ， 

8) 种 群 是 否 达 到 最 大 进化 代数 ,如 果 未 达到 则 转向 步骤 4) ,否则 此 时 种 群 中 适应 度 最 大 
的 个 体 所 对 应 的 目标 函数 值 , 即 为 全 局 最 优 解 。 

根据 上 述 步骤 可 以 编写 求解 问题 的 MATLAB 代码 如 下 : 
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alpha = theta(k,2:2:12); 
和 = theta(k,1:2:11); 
证 〈《 sum(c(sub2ind([6,3],1:6,alpha)). xm)> 670 || ... 
sunm(w(sub2ind([6,3],1:6,alpha)). xm)> 144 ) 
FITCk) = 0; $ 令 违反 约束 函数 的 适应 度 为 0 
end 
end 
%s% 该 部 分 是 复制 操作 
CopyP= FIT/sum(FIT);#% 各 个 体 在 交配 池 中 的 比例 
Copyind = find(CopyP> 0);#% 记录 下 比例 大 于 0 的 ,也 就 是 不 被 淘汰 的 个 体 
$%01 区 间 划分 (各 区 间 长 度 依次 等 于 各 个 体 在 交配 池 中 所 占 比例 ) 
Interval01Divide = cumsum(CopyP(Copyind)); 
Test = rand(S,1);$% 生 成 50 个 0,1 随机 数 
当 随 机 数落 和 人 的 区 间 序 号 ,表示 该 区 间 代表 的 个 体 被 选中 
TestResult = arrayfun( 人 @(x) find(Interval01Divide > = x,1,"first DoyTest); 
# 各 个 体 选中 的 次 数 , 进 而 决定 各 个 体 复制 的 次 数 
Frequency = accumarray(TestResult,1); 
Theta = cel1(Clength(Frequency) ,1); 
for jdk = 1:length(Frequency) 
# 根据 Frequency 每 个 分 量 决定 相应 个 体 的 复制 次 数 
Theta{kk} = repmat(theta(Copyind(kk) ， +) ,Frequency(kk) ,1); 
end 
Theta = cel12mat(Theta); 
%g% 该 部 分 是 交叉 操作 
RandMatch = randperm(S); 4% 随机 配对 
for kk= 1:S/2 
证 rand>1-Pc ss 满足 交叉 概率 ,下 面 交叉 
as=unidrnd(2,1,12) --1; 
temp = Theta(RandMatch(2 * kk 一 1),:). xa+Theta(RandMatch(2 #Jkk)，:). *(1 一 a); 
Theta(RandMatch(2 * jdk), :) = Theta(RandMatch(2 x kj- 75 寺 本 记 
《1 一 a) + Theta(RandMatch(2 * kk),:).x as 
Theta(RandMatch(2 * kk- 1),:) = tempi 
end 
end 
%s 该 部 分 是 变异 操作 
for kk=1:S 
证 rand<Pm # 满 足 变异 概率 
pos = unidrnd(12,1);#% 生 成 变异 位 置 (12 个 位 置 中 的 随机 一 个 ) 
证 mod(pos,2) ==1% 位 置 是 奇数 ,表示 m 参 数 
* 将 于 的 解 集 合 {1,2} 去 掉 当前 的 m 值 , 剩 下 的 那个 覆盖 原来 的 ， 
Theta(jkk,pos) = setdiff([1,2],Theta(jkdk,pos)); 
else # 偶数 位 置 ,表示 a 参 数 
s$ 将 a 的 解 集合 {1,2,3} 去 掉 当 前 的 a 值 
temp = setdiff([1 2 3],Theta(jkk,pos)); 
s# 剩 下 的 两 个 值 中 随机 挑 一 个 覆盖 原来 的 a 值 
Theta(jkk,pos) = temp(unidrnd(2))# 


theta = Thetai 
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end 
plot(1:G,f, linewidth',3); 
xlabel(' 和 迭代 次 数 ); 
Yabel( 系 统 可 靠 度 ); 
title( 和 迭代 次 数 同系 统 可 靠 度 曙 线 ) 
运行 
[xf] = GhforSCRDR; 


可 以 得 到 进化 过 程 中 200 代 , 每 一 代 的 最 优 个 体 z 以 及 相应 的 系统 适应 度 上 。 经 过 多 次 
运行 该 函数 ,发 现 函 数 寻 优 比较 稳定 ,基本 上 每 次 都 能 得 到 如 下 最 优 解 ; 
0 一 [(2,2),(2,2),(2,1),(2*1),(2,3),(2,3)] 
上 述 解 对 应 表 7 - 2 所 列 内 容 。 
表 7-2 6 对 应 的 可 选 设计 和 冤 余 度 分 配 表 
子 系统 可 靠 度 
1 一 (1 一 0.9272 一 0. 9936 








1 一 (1 一 0.947)2 一 0.9964 








1 一 (1 一 0.9272 一 0. 9936 





1 一 (1 一 0.937)2 一 0. 9951 





1 一 (1 一 0.9172: 一 0.9919 





1 一 (1 一 0.9372 一 0. 9951 





对 应 的 系统 可 靠 度 尺 (O ) 一 0. 99362 X 0. 99512 X0. 9964X0. 9919 一 0. 9662 。 
整个 遗传 算法 进化 过 程 中 的 进化 代数 (和 迭代 次 数 ) 同 系统 可 靠 度 之 间 的 变化 曲线 如 图 7.5 所 
示 ( 由 于 遗传 算法 的 随机 性 ,每 次 运行 曲线 不 会 完全 一 样 , 但 是 绝 大 多 数 都 会 最 终 达 到 最 优 解 ) 。 
和 迭代 次 数 同系 统 可 等 度 曲线 





087 和 站 . 
0 20 4 如 60 B0 100 


过 代 次 数 
图 7.5 和 迭代 次 数 同系 统 可 靠 度 曲线 





机 . 
120 140 160 180 200 


第 7 章 MATLAB 优 化 及 非 线性 方程 (组 ) 求 解 案 例 人 


从 图 7.5 中 的 曲线 可 以 看 到 ,遗传 算法 在 进化 了 不 到 50 代 后 便 趋 于 稳定 了 ,此 时 已 经 求 
出 了 最 优 解 。 
作为 遗传 算法 寻 优 的 应 用 ,在 7. 5 节 将 介绍 一 个 稍微 复杂 的 案例 。 


7.5 娄 例 13: 踪 传 算 法 在 车 间 设 备 市 局 优化 中 的 应 用 


7.S.1 问题 提出 


在 全 球 制造 业 竞 争 日 益 激烈 的 今天 ,一 个 高 效 的 低 成 本 的 制造 系统 对 于 增强 企业 竞争 力 
来 说 是 至 关 重 要 的 ,其 中 车 间 设备 布局 是 制造 系统 设计 的 一 个 重要 内 容 。 设 备 是 企业 进行 生 
产 的 基本 单元 ,合理 的 设备 布局 对 均衡 设备 能 力 、 保 持 物流 平衡 .降低 生产 成 本 起 着 至 关 重 要 
的 作用 。 有 关 研 究 表明 ,大 约 20%% 以 上 的 加 工 费 用 用 于 物料 运输 ,而 合理 的 设备 布局 至 少 能 
降低 10%% 一 30%% 的 物料 运输 费用 。 

车 间 设 备 布 局 问题 是 一 种 组 合 优化 问题 ,具有 非 线性 ,NPCNet Profit 的 缩写 , 即 净利 润 ， 
也 称 税 后 利润 或 净 收 入 ) 难 等 特性 。 车 间 设备 平面 布局 问题 可 抽象 为 一 维 布局 和 二 维 布局 问 
题 。 其 中 ,一 维 布局 可 被 看 做 单行 设备 布局 问题 ;二 维 布局 可 归结 为 多 行 设备 布局 问题 。 求 解 
车 间 布 局 优化 问题 ,传统 的 优化 算法 一 般 很 难 奏效 。 目 前 ,已 经 有 许多 学 者 应 用 遗传 算法 来 解 
决 车 间 设 备 布局 问题 并 取得 了 一 定 的 成 果 , 本 案例 目的 在 于 ,通过 一 个 具体 的 车 间 设 备 多 行 布 
局 优化 实例 展示 遗传 算法 如 何 解决 上 述 问题 。 


7.S.2 数学 模型 


求解 车 间 设备 布局 问题 的 目的 是 对 车 间 内 设备 的 位 置 进行 布局 ,使 物料 搬运 成 本 最 低 。 
为 了 简便 起 见 , 这 里 直接 给 出 经 过 简化 的 数学 模型 。 如 图 7.6 所 示 。 

















图 7.6 设备 布局 参数 决策 变量 和 参考 线 
车 间 的 多 行 设备 布局 是 使 设备 间 总 的 物料 搬运 成 本 最 小 化 。 其 目标 函数 可 表达 为 


c 一 六 PiQrp; (7-25) 


i=1 7=1 


设备 间距 离 表达 式 如 下 : 





一 
目 * 澡 岗 间 六 煌 征 赴 国志 8YVTIVIN 漳 由 机 访 沿 小 讲 济 天 二 -西关 言 宣 吉 时 瑟 贡 球 党 阶 讲 


AN/ 


瑟 澳 言 家 寺 笛 互 贡 球 洁 防 洁 


。 牙 油 认 并 是 站 十 和 贱 二 8VTIVIJN 济 成 市 洲 凡 注入 六 天 要 
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也 一 |z 一 刀 | 十 | 一味 | 《7-26) 
设备 横 坐 标 求解 公式 : 
Z 一 十 (2 十 A)V/2 十 乱 十 Ai 一 io 十 人 十 (十 24)72 十 和 十 Ai (7-27) 
设备 纵 坐 标 求解 公式 : 
水 一 (R 一 1)s 十 se， 如 果 z 王 1 一 1,2, ,mm3;K 一 1,2， 7 (7-28) 
横 坐 标 和 纵 坐 标 满足 求 同 一 行 设 备 不 重 簿 约束 条 件 , 即 
| 关 一 刀 |[(4 十 二 )/2 十 司 ]zazi 一 1, 2 (7-29) 
其 中 ， 
1 设备 ; 行 
二 和 (7-30) 
同时 要 求 一 台 设 备 只 能 出 现 一 次 , 即 
当 w 一 1 ii 一 1;,2, om ziyi 二 0A 二 0 一 1,2，7 (7 -31) 
上 述 模型 中 出 现 的 符号 的 含义 如 下 : 


C 为 搬运 的 总 费用 ;为 设备 的 总 数量 ;zz 为 设备 布局 的 总 行 数 5 为 设备 站 的 长 度 ;j 为 
设备 ; 和 7 之 间 的 横向 最 小 间距 要 求 ;jao 为 设备 和 车 间 边 界 的 横向 最 小 间距 要 求 ;A, 为 设备 
i 和 设备 ;一 1 或 边界 之 间 的 净 距 离 , 取 值 范围 为 [0,1. 5];s 为 设备 行 间 距 ;s 为 第 一 行 设备 到 
车 间 边 界 的 距离 ;zi 为 设备 ;中 心 的 z 坐标 ; y% 为 设备 让 中 心 的 了 坐标 ;为 设备 ; 和 J7 之 间 
的 单位 物料 每 单位 距离 的 搬运 费用 ;Qy, 为 设备 ; 和 六 之 间 物 料 搬运 频率 ;Dy 为 设备 ; 和 7 之 间 
的 矩形 距离 。 

数据 :假设 共有 10 台 设 备 ( 各 设备 尺寸 见 表 7 -3) ,在 长 X 宽 =10 mX8 m 的 车 间 内 布局 。 

表 7-3 设备 尺寸 


设备 1 2 3 4 5 6 8 
尺寸 | 1.2X1.0 |0.5X0.4|1.7X0.8 | 0.7Xx0.7 |1.0X0.8 | 0.8X0.8 | 0.5Xx0.8|1.4X0.8 | 0.8X0.8 |1.2X0.6 








上 述 模型 需要 的 设备 尺寸 以 及 其 他 相关 数据 矩阵 如 下 (以 M 语言 表示 的 矩阵 形式 给 出 ) : 


Devicesize= [1.2 1.0;0.5 0.4;1.7 0.8;0.7 0.7;1.0 0.8i0.8 0.8;0.5 0.8i... 
1.4 0.8;0.8 0.8;1.2 0.6]， 
pij=[082164323580326734252303424316 
本 
3 在- 2 5 全 作 人 生 2 二 二 -站 全 二 一 二 > 王 人 区 六 0 让 攻 天 
人 


42541051.1207 22 工 10.27 了 3 


朋 0 

3 .0012220523237 9410 下 53 0 2 072 和 < 人 3 和 0 2 和 六 

全 2 
hi0e [5121.51.5 了 .3721282271]5 光 
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hij=[o-1 418 1.89 1.2 1.4 .2 1.3 十 2 0 
1820112115 1.311.8221012181.81 1 
2 2 15 
全 二 57 这 -全 二 012251136 .15 .87 LI2 0 1.8 1; 
下 0]; 

S=25 

s0=1.55 


【补充 说 明 〗 读者 可 能 对 设备 横 坐 标 求解 公式 (7 - 28) 有 疑问 , 即 为 什么 认为 zx 就 是 和 
车 间 边 界 相 邻 ,从 而 得 到 表达 式 也 一 Mo 十 4 十 全? 其 实 这 是 为 了 简便 起 见 , 假 设 它 与 边界 相 


邻 ,是 对 设备 横 坐 标 之 间 关系 的 一 个 说 明 。 从 后 面 遗传 算法 求解 过 程 中 染色 体 编码 可 以 知道 
设备 的 排序 ,公式 (7 - 28) 可 以 被 认为 是 一 个 递 推 公式 , 先 确 定 第 一 行 第 一 个 设备 的 横 坐 标 , 然 
后 按照 上 述 规则 以 及 自动 换行 规则 依次 推出 其 余 设 备 的 。 

关于 心 应 当 这 样 理解 :不 同 的 设备 位 于 同一 行 时 ,其 横向 最 小 间距 由 局 矩 阵 给 出 ,但 是 如 
果 它 们 位 于 不 同 的 行 ,横向 间距 就 不 限制 了 。 也 就 是 说 ,两 设备 只 有 在 横向 相 邻 时 相应 的 必 
才 发 挥 作用 。 

设备 和 最 右 侧 边界 只 有 横向 最 小 距 离 限 制 ,并 且 等 于 最 左 侧 边界 横向 最 小 距离 的 限制 。 
从 数值 上 讲 , 也 就 是 对 应 每 台 设备 的 An 。 


7.S.3 算法 步骤 


本 例 采 用 遗传 算法 求解 ,有 关 基 本 的 遗传 算法 在 上 一 节 已 经 做 了 介绍 。 这 里 只 对 每 步 的 
具体 策略 进行 描述 。 
编码 :编码 表达 采用 设备 符号 和 净 间 距 两 个 列表 的 扩展 换 位 表达 方式 ， 
[ (za yzaz yn }，{Al As，…Ao)] 
其 中 ,mu 代表 设备 iA, 代表 设备 ;一 1 和 设备 ;之 间 的 净 间距 。 同 时 ,采用 自动 换行 策略 , 即 
如 果 在 同一 行内 的 各 设备 长 度 和 相互 实际 间距 之 和 超过 了 最 大 横向 空间 长 度 限制 ,本 行 最 后 
一 台 设 备 自动 进入 下 一 行 。 
初始 种 群 :随机 产生 。 为 了 加 快 遗传 算法 的 收敛 过 程 , 可 以 先 用 一 个 其 他 方法 得 到 的 比较 
优 的 设备 符号 序列 来 代替 初始 种 群 中 第 一 个 染色 体 设备 符号 序列 。 本 例 中 可 以 先 用 (2 8 5 4 
1739106) 来 代替 。 这 样 就 形成 了 初始 种 群 。 
惩罚 项 :因为 采用 自动 换行 策略 ,在 X 方向 上 不 会 发 生 设备 超出 车 间 区 域 。 因 此 ,只 要 判 
断 最 后 一 行 设 备 在 了 轴 方 向 上 是 否 超 出 车 间 区 域 。 
0， so 十 (z 一 1)5 雪 万 
Er 其 他 
其 中 ,万 为 车 间 的 宽度 ; P, 为 不 合理 惩罚 项 ;T 为 正 的 大 数 惩罚 值 500。 
适应 度 函 数 :对 于 染色 体 w 的 适应 度 函 数 定义 为 
Jit(w) 一 1/CC 十 Pi) (7-32) 
其 中 ,C 为 目标 函数 。 
选择 :采用 轮转 法 选择 机 制 , 即 各 个 个 体 被 选中 的 概率 与 其 适应 度 大 小 成 正比 。 设 群体 大 
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小 为 M, 个 体 站 的 适应 度 为 民 ,, 则 个 体 守 被 选中 的 概率 也, 一己/ 9 天 (G 一 1,2,…,M)。 也 就 


是 说 ,种 群 按 此 概率 进行 选择 ,得 到 新 的 种 群 ,适应 度 越 高 的 个 体 被 选中 的 概率 越 大 。 
交叉 :用 PMX( 部 分 映射 交叉 ) 方 法 处 理 设备 排 列 序列 交叉 操作 ;用 算术 交叉 方法 处 理 净 


间距 序列 。 

部 分 映射 交叉 :随机 选取 两 个 交叉 点 ,两 点 内 为 
需要 交叉 部 分 ,然后 按 顺 序 先 逐 个 进行 交叉 ,同时 修 
改 交 叉 后 的 重 笃 部 分 ,如 图 7.7 所 示 。 

部 分 映射 交叉 的 操作 过 程 如 下 :随机 得 到 两 竖 线 
位 置 为 交叉 点 ,两 线 之 间 部 分 的 所 有 元 素 需 逐个 交 
又。 首先 交叉 媚 和 姜 ,交叉 结束 后 将 竖 线 外 的 重 蚕 
元 素 修 改 , 如 ,第 一 行 会 出 现 两 个 了 ,第 二 行 会 出 现 两 
个 互 ,然后 进行 修改 ,使 每 行 元 素 不 重复 。 以 此 继续 
交叉 ,最 终 得 到 新 的 个 体 Te ,Ty 。 

算术 交叉 :假如 在 两 个 个 体 Xas ，Xs 之 间 进 行 算 
术 交 叉 , 则 交叉 运算 后 产生 的 新 个 体 是 


7T=ADBIHFIIGEC) 
TD=BCADEJIHIF G) 
一 一 一 (AHBIDFIIGEC) 
一 一 一 (BCAHEEJIDIFG) 


一 一 一 (AHBIDEIUIGEFC) 
一 一 一 (BCAHFJDIEG) 
D 


一 一 (AHB 
-一 -全 (BC A 


EJIGEF CI 
FIlpJEGF7Y 





图 7.7 部 分 交叉 映射 示意 图 


Xi 一 CXS 十 (1 一 a)XA (7-33) 
XO 一 aXA 十 (1 一 a)X (7-34) 


其 中 ,一 0. 5。 


变异 :只 对 设备 净 间 距 进行 变异 操作 ,假设 给 定 染色 体 的 净 间 距 序列 是 
{A 人 AAA 
依 变异 概率 指定 其 变异 点 Ai,r 是 一 个 给 定 的 整数 , [Us,Uns] 是 设备 净 间 距 的 取 值 范 
围 , 则 在 该 区 间 内 可 随机 产生 ~ 个 净 间距 :Al ,A; ,…,A57, 用 它们 分 别 取 代 变 异 点 Ai, 可 产生 
个 新 染色 体 , 从 这 > 个 新 染色 体 中 挑选 最 好 的 一 个 取代 原来 的 染色 体 。 
r 一 10，[Us ,Us] 一 [0,1.5] 
运行 参数 :种 群 数量 50, 终 止 代数 为 200, 交 叉 概 率 为 0. 6, 变 异 概 率 为 0. 1 。 


7.5.4 求解 代码 


根据 7. 5. 3 描述 的 算法 步骤 可 以 写 出 如 下 的 求解 代码 : 


function [chrx,MOC,PkG,LayoutG] = GR4WorkshopDeviceLayout 
s# chrx: 存 储 每 一 代 的 最 优 解 ;MOC: 存 储 每 一 代 的 最 优 解 的 目标 函数 值 ， 


% PkG 存储 每 一 代 的 最 优 解 的 适应 度 ， 
s LayoutG, 存 储 每 一 代 最 优 设备 排列 方式 


DeviceSize= [1.2 1.0;0.5 0.4;1.7 0.8;0.7 0.7;1.0 0.8;0.8 0.8;.…. 


0.5 0.8;1.4 0.8;0.8 0.8;1.2 0.6]; 


Pijs[0o ee2168432358 .03:-2 .67 342 52 303 4 2 可 河 1 6 
业 2 3 0 2397 7245 证 2 

3 3 4.2-2.57024 4 642 4 3.7336.45023 243 2 2 43 4 可 丽 2 

-了 


2 0]; 


要 遇 皮 旺 符 菇 鲁 怀 出 是 时 一 民 共 炽 寻 以 扣 站 湖 蝶 MATLAB 生 术 宁 性 昌 浊 好 检 可 。 
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+ sum( hi0( m([kk,end]) ) ) <= 10 
Layout{nRow} = m(kk:end); 
break 
end 
end 
x= zeros(10,1);s#% 存 储 各 设备 x 坐 标 
Y= zeros(10,1);% 存 储 各 设备 了 坐标 
for nr = 1:nRow 
x( Layout{nr}(1) ) = hi0( Layout{nr}(1) ) + delta( Layout{nr}(1) ); 
Y(CLayout{nr}) = (nr 一 1)*Ss+S0; 
主 length(Layout{nr}) ==1 
负 某 行 只 有 一 个 设备 ,上 面 已 经 得 到 设备 的 横 纵 坐 标 , 直 接 循环 下 一 个 nr 
continuei 
end 
for nc = 2:length(Layout{nr}) 
x(Layout{nr} (Cnc)) = x(Layout{nr}(Cnc 一 1))+... 
mean( DeviceSize(Layout{nr}([nc-1l,nc]j),1) )+... 
hij( Layout{nr}(nc - 1),Layout{nr}(Cnc) ) + delta(Layout{nr}Cnc)); 
end 
end 
Dij = zeros(10)} 
for ii=1:10 
for j 订 =13:10 
Dij(ii,jj) = abs(Cx(ii) -x(jj)) + abs( Y(ii) -Y(jj) ); 
end  . 
end 
end 


%s% 随机 生成 nchr 个 初始 种 群 ,用 已 有 设备 序列 替换 掉 前 三 个 染色 体 的 设备 序列 段 
#%M, 由 于 是 对 随机 数 和 矩阵 每 行 排 序 后 新 矩阵 中 的 数字 在 原 和 矩阵 的 序号 ,所 以 4 相当 于 随机 生成 了 
$%nchr 个 1 到 10 的 随机 排序 
[sorted,M] = sort(randCnchr,10),2) 
CHR = [M,unifrnd(UminyUnaxvnchr,10)] ; 
for ki= 1:3 
s$ 用 所 给 的 设备 序列 替换 掉 前 三 个 染色 体 的 设备 序列 段 
CHRCki,1:10) =[28541739106]; 
end 本 
#g% 目标 函数 以 及 适应 度 函 数 ,设备 排列 ,根据 适应 度 函 数 特点 ,将 目标 函数 和 适应 度 函 数 
外 以 及 设备 排列 用 一 个 函数 实现 ,减少 重复 计算 
function [C,Pk,Layout] = ObjfunEvalfunCchr) 
[pij,nRow,Layout] = GenerateDistanceMatrix(Cchr); 
C= sum( sum(Pij, * 0ij. * Dij) ); % 目标 函数 值 
Pk=1/(C+Tx((nRow-1l)x*s+s0>H));% 适 应 度 函数 值 
end 


%s% 进化 G 次 ,PkG 存储 每 一 代 的 最 优 解 的 适应 度 ,MOc, 存 储 每 一 代 的 最 优 解 的 目标 函数 值 ， 
#% chrx 存储 每 一 代 的 最 优 解 ,C, 进 化 过 程 中 每 代 染 色 体 的 目标 函数 值 ,Pk, 进 化 过 程 中 每 代 染 色 体 
# 的 适应 度 ,LayoutG, 存 储 每 一 代 最 优 设备 排列 方式 ,Layoutnchr, 每 一 代 中 种 群 各 个 染色 体 的 


“名 设备 排列 方式 


BkG = zeros(G,1); 
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多 运行 几 遍 上 述 程序 ,可 以 得 到 一 些 比较 优 的 解 。 自 于 造 传 算 污 的 村 机 侍 ， 每 次 运行 的 结 
果 可 能 不 一 样 。 但 得 到 的 解 是 比较 优 的 。 比 如 下 面 的 一 组 解 : 

[(o ,oo ) (Ai1A wwA7 门 [5，2，1，8，6，10,， 3，4，9，7，0: 076 0， 
1. 080 2,0. 038 1,0.014 5,0. 153 2，0. 064 8，0. 086 9，0. 004 8, 0.1214,， 0.127 9] 

对 应 的 目标 函数 值 为 1957。 按 照 自动 换行 策略 ,上 述 得 到 的 最 优 设备 排列 方式 为 

第 一 行 :5 2 1 2 

' 第 二 行 :8 6 10 3 

第 三 行 :4 9 7 

整个 遗传 算法 进化 次 数 和 最 优 目标 函数 值 的 关系 如 图 7. 8 所 示 , 每 次 运行 的 结果 图 形 会 
不 一 样 。 
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进化 次 数 同 最 优 函 数值 曲线 














0 50 150 200 


100 
进化 次 数 
图 7.8 进化 曲线 图 
从 图 7. 8 可 以 看 出 , 随 着 进化 次 数 的 增加 ,最 优 的 目标 函数 值 也 在 不 断 减 小 ,遗传 算法 最 


终 得 到 了 一 个 优化 的 解 。 感 兴趣 的 读者 可 以 多 运行 几 遍 上 述 程序 ,观察 一 下 都 可 以 产生 哪些 
优化 的 解 。 


7.6 素 例 14: 应 用 Benders 分 解 算法 求解 混合 0- 工 规划 


7.6.1 概 述 


MATLAB 的 优化 工具 箱 对 于 整数 规划 一 直 支 持 力度 不 够 ,目前 仅 有 bintprog 函数 来 求 
解 纯 的 0- 1 规划 问题 ,对 于 混合 规划 一 直 没 有 现成 的 函数 可 以 求解 ,只 能 借助 第 三 方 工具 箱 。 


我 们 知道 ,对 于 任意 非 负 整数 =, 可 以 将 其 表示 成 = 一 zu， CiE{(0,1)) 的 形式 。 如 果 是 负 


整数 , 则 前 面 乘 以 一 1 即 可 。 因 此 混合 整数 规划 也 可 以 转化 为 混合 0- 1 规划 。 

当然 ,直接 求解 整数 规划 问题 的 方法 也 有 ,如 分 支 定 界 法 和 割 平 面 法 等 。 但 在 求解 大 型 问 
题 时 ,上 述 方法 往往 很 难 奏效 。 本 案例 主要 介绍 如 何 利 用 Benders 分 解 算法 来 求解 混合 0-1 
规划 问题 。Benders 分 解 算法 是 根据 对 偶 理论 得 到 的 求解 混合 整数 规划 的 有 效 算 法 ,关于 其 
理论 介绍 ,有 兴趣 的 读者 可 以 参考 文献 [16] 进 行 了 解 。 这 里 为 简洁 起 见 , 只 给 出 算法 的 基本 描 
述 与 步骤 。 


7.6.2 Benders 分 解 算 法 


考虑 如 下 优化 问题 : 
min Cr 十 Dy 
s.t.。 4zr 十 By 三 记 (7-35) 
ZE {0,1}，y 过 0 
其 中 ,4 为 nRowA * nColA 的 矩阵 ;了 为 nRowB x nColB 的 矩阵 ;C,D,z 分 别 是 长 为 nColA， 
nColB，nRowA(CnRowB) 的 行 ( 列 ) 向 量 。 


杞 郑 言 本 寺 办 互 直 阁 尘 沪 齐 


" 误 沿 冲 蛮 煌 征 由 生 二 SHYVTILVIN 尖 岩 机 这 册 蛤 认 汪 大汉 
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为 了 方便 读者 阅读 Benders 分 解 算法 的 MATLAB 程序 ,这 里 在 对 算法 描述 时 是 结合 具 
体 Benders 分 解 算法 程序 采用 M 语言 形式 来 描述 的 ,变量 和 程序 中 的 变量 是 统一 的 。 
Benders 分 解 算法 程序 的 主要 步 又 如 下 


(1) 初始 化 





(2) 求解 子 问题 

求解 如 下 子 问题 : _ 
min 〈4zo 一 D)7UorVY c7 -36y 
s.t. BITUorVy 近 DT 


程序 中 相应 代码 : 











根据 exitflag 判断 ,如 果 exitflag 王 1, 则 求 得 一 极 值 点 UorV ,那么 


并 令 : 
如 果 exitflag 一 一 3, 则 原 问 题 无 界 , 可 以 求 得 一 个 极 方向 UorV ,那么 
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其 他 情况 ,无 解 ,退出 。 
(3) 求解 主 问题 
求解 如 下 主 问题 : 
min = 
st xzCro 十 U(h:)(G 一 Arz)， 天 一 1)2，…) 力 
VY(G :CD 一 4Az) 和 之 0， 一 1,2,，…，9 NA 人 


如 果 UB 为 无 穷 Cinf) , 令 & 一 17( 为 了 表示 z 而 对 守 设 的 一 个 较 大 的 上 限 ); 和 否则 = ceil 





M 
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(log2(UB 十 1)) 一 1; 其 中 ceil( ?表示 向 上 取 整 ;将 = 表示 成 
二 
z 一 >)2izri， zziE (0,1) (7-38) 


zz 和 式 (7-37) 中 工 都 是 0- 1 变量 ; 合 在 -起 用 ZX 来 表示 ,其 中 ,ZX 前 C&1) 个 分 量 ， 


是 xzi, 从 (十 2) 个 开始 到 末尾 是 zx, 这 也 就 是 为 什么 后 面 程序 中 得 到 OptZX 后 , 令 









再 令 





那么 式 (7- 37) 可 以 改写 成 


min JJTZXK 
s.t， CoefMatZXK * ZK<<DZX (7-39) 
问题 式 (7 - 39) 可 用 分 支 定 界 法 求解 , 当 式 (7 - 40) 规 模 较 大 时 ,还 可 以 用 一 些 智 能 优化 算 
法 ,如 遗传 算法 、 模 拟 退火 算法 等 求解 。 这 里 仅 介绍 利用 MATLAB 中 的 函数 bintprog 求解 的 
方法 。 
求解 式 (7 - 39) 的 相应 的 代码 如 下 : 





得 到 OptZX 后 , 令 


比较 LB/UB 的 值 ,如 果 小 于 epsilon, 算 法 继续 分 解 ,并 转 第 二 步 ;否则 OptX= x0 一 
OptZX(k 十 2:end); 是 最 优 解 ,停止 分 解 ,将 OptX 带 入 原 问题 ,求解 如 下 问题 得 到 最 终 的 原始 
问题 的 解 : 
min DY 
st 一 BY<A4* OptX 一 六 (7-40) 
相应 代码 如 下 : 


下 面 是 完整 的 Benders 分 解 算 法 程序 代码 以 及 相应 的 流程 图 : 













“或 测 间 六 和 种 直 生 十 SVTIVIN 郊 由 市 访 避 小 认 六 天 可。 西 源 言 永 过 力也 民 球 学 演讲 
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则 雪上 直 误 符 区 钠 外 出 苹 内 划 “外 葵 炽 类 窒 权 可 于 斋 赋 MATLAB 生 凡 案 发 古 芝麻 类 可 * 


www- 让 oveMafiab.cn 
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LB = min2; 
x0 = OptZX(k+ 2:end) 
else 
break; 
end 
LB,UB g% 井 ok< NOPRT > 
end 
OptX = x0; 
options = optimset(' LargeScale'，'off'，'Simplex'，'on'); 
[optY,OptValue] = linprog(D', - B,Ax OptX- b,[],[],zeros(CnCcolB,1) ,infCncolB,1)，… 
口 ,options)， 
OptValue=CxOptX+DxOptY; 


Bender 分 解 算法 流程 如 图 7.9 所 示 。 

















二 


CE 站 


图 7.9 Benders 分 解 算法 流程 图 








7.6.3 实例 分 析 


【 例 7.6-1] 求 如 下 混合 0- 1 规划 的 解 。 
min 5zl 一 6zz 十 72: 十 3y? 
s.t， 几 一 2zi 十 3z:0 
六 十 y% 十 2zi 一 zz 过 11 
Zi 十 Zi 十 yz 志 7 





“注册 章 谎 灿 征 下 生 开 8YTIVIJ 济 由 订 澡 沿 洽 诗 六 天 过 -西关 言 永 过 旦 互 亲 后 党 演进 
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2yyz 二 0 
ZE{0,1} 
将 上 式 写成 式 (7 -36) 的 标准 形式 得 到 ， 
C 王 [5, 一 6], 了 一 [7,3],， 4 一 [一 2,3;2, 一 1;1,1]7，B 一 [1,0;1,1;0,1]，25 王 [0,11,7] 
利用 BendersDecomposition 函数 求解 的 代码 如 下 : 





>>c=[5-6]; 

D=[7,3]; 

Ra=-[-23i2,-1i131]， 

B=[lo0;l1;01]; 

b=[o;11;7]， 

[optX,OptY,OptValue] = BendersDecomposition(C,D,R,B,b); 


得 到 的 最 优 解 以 及 最 优 值 如 下 : 


OptX = 
汪 


OptY= 
0 
10 

OptValue = 
29 

再 看 一 个 有 很 强 实际 应 用 价值 的 优化 问题 一 -有 容量 限制 的 单 商品 货物 流 的 设施 选 址 
问题 。 

【 例 7.6-2】 给 定 客户 集合 M 三 (1,…,z2} ,地 点 集合 N 一 {1,…,*z)} ,希望 从 地 点 集合 N 
中 选择 若干 地 点 修建 服务 设施 。 假 设 ,在 第 ;CE N) 个 地 点 修建 服务 设施 的 费用 为 万 ,该 服 
务 设施 所 能 够 存储 的 某 种 商品 的 容量 为 礁 。 此 外 ,第 站 个 客户 对 该 商品 的 需求 量 为 总 , 令 zy 
表示 客户 ; 从 第 7 个 地 点 的 服务 设施 中 可 以 获得 的 商品 供应 量 ,cy 表示 客户 让 到 地 点 j 获取 单 
位 商品 时 的 成 本 。 如 果 第 了 个 地 点 没有 修建 服务 设施 ,就 不 可 能 由 此 地 向 客户 供应 商品 ,提供 
服务 。 

为 了 描述 商品 的 运输 量 和 服务 设施 修建 与 否 之 间 的 关系 ,可 以 引进 0- 1 变量 yE B"， 
其 中 ,wm 一 1 表示 在 第 个 地 点 修建 服务 设施 ,yw 一 0 表示 不 在 第 j 个 地 点 修建 服务 设施 。 
于 是 ,有 容量 限制 的 单 商品 货物 流 的 设施 选 址 问题 可 以 用 下 面 的 线性 混合 0 -1 规划 模型 来 
描述 : 


* 洲 册立 准 籼 生 由 生 开 SIVTIVN 郑 看 林 汪 洽 计 六 天 二 -本 项 言 评 寺 迟 瑟 亲 于 学 济 淋 





cn 
D 


目 


min 六 crzy 十 Ji 
JEN 


iEM JiEN 


S. t. 人 zy 一 总 ，iEeM， 


JEN 
r, -wy <o，je N， 
iEM 


2 全 0，iEMJENyE 了 B (7-42) 


人 人 人 


,10} ,地 点 集合 为 N 一 
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下 面 结合 具体 数据 来 求解 上 面 的 模型 。 假 设 客户 集合 M 王 (1,2,… 


,6}。 其 他 一 些 必要 数据 见 表 7- 4 一 表 7-7。 


{1, 2 


表 7-4 万 数据 


容量 /t 


表 7-6 访 数 据 





根 雪 吉 避 符 区 鲁 榴 出 怀 冉 划 “ 忆 从 各 机 客 权 可 中 请 蝶 MATLAB 生 凡 农 炎 二 过 琳 枫 塌 。 


针对 上 述 实际 数据 ,相应 的 求解 代码 如 下 








* 训 沿 证 广 籼 条 让 生 二 8VTIVJN 郊 由 机 吝 几 下 前 深 天 村。 瑟 产 言 本 吉 妾 互 贡 处 等 院 齐 
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运行 上 述 代码 得 到 的 结果 如 下 : 





从 上 面 结果 可 以 看 出 ,前 三 次 迁 代 找到 的 都 是 极 方向 ， 第 四 次 ,第 五 次 运 人 找到 的 是 人 
点 ,从 而 完成 整体 的 计算 。 找 到 的 最 优 解 见 表 7-8 和 表 7-9。 
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表 7-8 好 




















地 点 1 2 3 生 5 6 
修建 与 否 理 修 修 理 修 修 





得 到 的 最 优 目标 函数 值 ( 最 少 费 用 ) 为 :256 030 万 元 。 


小幅 评 褒 灿 条 让 片 二 8VTIVIN 交 由 才 这 内 禾 认 六 天 可。 本源 说 订 寺 六 瑟 贡 怀 活 辽 让 











8.1 概 述 


本 案例 的 目的 是 介绍 用 统计 方法 (PCA 以 及 近 些 年 发 展 起 来 的 一 些 PCA 的 增强 模型 ,如 
二 维 化 模型 2DPCA、MatPCA 和 模块 化 方法 Module PCA 等 ) 进 行人 脸 图 像 压 缩 与 重建 原理 。 
为 了 方便 读者 试 运行 以 及 研究 本 案例 中 的 程序 ,本 案例 算法 选用 的 数据 库 为 标准 人 脸 数据 
库 ORL 。 

PCA (Principle Component Analysis ) 是 统计 学 中 的 主 成 分 分 析 方 法 。 主 成 分 分 析 方 
法 从 矩阵 角度 讲 也 称 氏 -L 变换 。 这 种 方法 应 用 于 图 像 压 缩 时 ,首先 将 图 像 训 练 库 里 的 每 个 
二 维 图 像 拉 伸 成 向 量 , 然 后 对 其 进行 主 成 分 分 析 得 到 主 成 分 的 变换 矩阵 以 及 图 像 均 值 向 量 。 
图 像 压 缩 过 程 就 是 把 待 压 缩 的 图 像 减 去 训练 得 到 的 图 像 均值 向 量 并 通过 变换 矩阵 变换 成 维 数 
很 小 的 一 个 向 量 的 过 程 。 图 像 的 重建 就 是 将 压缩 的 图 像 通过 变换 矩阵 的 道 变换 后 再 加 上 图 像 
均值 向 量 得 到 的 压缩 前 向 量 的 近似 向 量 。 因 为 是 主 成 分 分 析 , 所 以 图 像 会 有 较 少 的 信息 损失 ， 
并 且 不 能 完全 复原 ,但 是 这 种 信息 损失 一 般 是 非常 小 的 。 

以 上 是 最 基本 的 主 成 分 分 析 方 法 对 图 像 进行 压缩 和 重建 的 大 致 过程 。 基 本 的 PCA 存在 
以 下 一 些 缺 点 : 当 人 脸 图 像 光 照 以 及 位 置 发 生 较 大 变化 时 ,基本 的 PCA 无 法 有 效 捕捉 这 些 变 
化 ,而 且 有 研究 表明 ,基本 的 PCA 几乎 不 能 捕捉 到 图 像 之 间 的 一 些 最 简单 的 一 致 性 ,除非 这 些 
信息 包含 在 训练 图 像 中 。 除 此 之 外 ,基本 的 PCA 都 要 把 图 像 的 像素 按 某 种 方式 (一 般 是 各 列 
首位 相 接 ) 拉 伸 成 一 个 维 数 很 高 的 向 量 。 当 图 像 尺寸 稍 大 时 ,这 个 拉 伸 后 的 向 量 维 数 会 非常 
高 ,更 不 用 说 训练 图 像 之 间 的 协 方 差 矩 阵 了 。 虽 然 利 用 SVD 分 解 可 以 近似 得 到 特 像 向 量 ( 特 
征 图 像 ) ,从 而 避免 生成 巨大 的 协 方差 矩阵 ,但 这 样 做 很 多 时 候 是 不 精确 的 。 

鉴于 上 述 PCA 方法 的 不 足 , 人 们 提出 了 一 系列 的 改进 方法 , 即 上 面 提 到 的 2DPCA、MatPCA 
以 及 Module PCA 等 ,下 面 将 一 一 介绍 这 些 方法 。 为 方便 起 见 , 算 法 中 讨论 的 图 像 均 为 标准 人 
脸 数据 库 ORL 中 的 图 像 。 

本 案例 还 有 一 个 目的 就 是 通过 将 上 述 算法 集成 到 GUI 程序 中 ,使 读者 能 了 解 一 些 简单 的 
GUI 要素 实现 方法 ,如 菜单 .回调 函数 .不 同 控件 之 间 的 参数 传递 等 。 


8.2 基本 的 PCA 方 法 实现 人 脸 图 傣 有 压缩 与 重建 


8.2.1 开 -L 变换 


基本 的 PCA 方法 在 对 人 脸 图 像 压 缩 前 首先 要 挑选 一 些 图 像 作为 训练 图 像 。 假 设 要 训练 
的 图 像 的 尺寸 为 NX N, 那 么 它 的 所 有 列 的 像素 可 以 首尾 相 接 串 起 来 。 这 样 ,每 一 幅 图 像 可 以 
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拉 伸 成 一 个 长 为 N* 的 列 向 量 , 它 可 以 被 看 成 N? 维 空间 中 的 一 个 点 。 由 于 所 训练 的 图 像 彼此 
之 间 都 具有 很 多 相似 的 地 方 ,所 以 这 些 向 量 在 这 一 超 高 维 空间 中 的 分 布 并 不 是 随机 或 杂乱 无 
章 的 ,它们 彼此 之 间 具 有 很 强 的 相关 性 ,可 以 对 其 进行 主 成 分 分 析 (K - L 变换 ), 即 用 一 个 低 
维 子 空间 描述 这 些 图 像 , 同 时 又 不 丢失 关键 信息 。 

假设 选 定 的 训练 图 像 集 含有 M 幅 图 像 , 令 ziE {1,2,…,M} 为 第 ;个 训练 样本 的 图 像 向 
量 ,xz* 一 [ez ，…xw]a 为 所 有 训练 样本 图 像 的 平均 图 像 向 量 , 即 


3 
&a 一 [uvu za] 
主 成 分 分 析 需 要 训练 样本 集 的 总 体 散 布 矩 阵 , 即 协 方差 矩阵 ， 
了 五 一 E[(x 一 w) (xz 一 wx)T] 
或 


1 习 因 
下 二 丰富 一 7 


卫 是 一 个 维 数 为 六 XN 的 矩阵 , 主 成 分 分 析 方法 需要 计算 其 特征 值 和 正 交 归 一 的 特征 向 量 。 
由 于 实际 应 用 中 N: 都 会 非常 大 ,直接 计算 是 非常 困难 的 。 为 此 ,下 面 的 定理 可 以 较 好 地 解决 
这 一 问题 。 
定理 8.1(SVD) 设 4 是 一 个 秩 为 > 的 上 Xr 维 矩阵 , 则 存在 两 个 正 交 和 矩阵 
了 一 (wy ur)E2x UTU 一 有 
VY 一 (mmww)E9x VTV 一 太 


以 及 对 角 阵 : 
4 一 diag (Ma )E 史 xDUTU 一 T， 
且 入 三 xs 之 … 过 )， 
满足 4 一 UAYYVT (8-1) 


其 中 (这 1,2，……r) 为 矩阵 447 和 4T4 的 非 零 特征 值 ;jw 和 分 别 为 447 和 474 对 应 于 
》; 的 特征 向 量 。 上 述 分 解 成 为 矩阵 4 的 奇异 值 分 解 (Singular Value Decomposition,SVD) ,4 
的 奇异 值 为 V，。 
推论 U=A4VA- (8-2) 
回 到 我 们 的 问题 ,由 于 号 可 表示 为 


M 
卫 妆 六 2 &) Cxri 一 &D)T Oo 
其 中 : 大 一 (Xi 一 ya 一 MX 一 下) 
故 , 构 造 矩阵 











及 一 忆 [ 壬 EMxM 
容易 求 出 其 特征 值 X 及 相应 的 正 交 归 一 特征 向 量 w(i 一 1,2,…,M)。 从 上 述 推论 可 知 ,号 
的 正 交 归 一 特征 向 量 为 


“Ar i 一 1,2，…M (8-3) 
这 就 是 图 像 的 特征 向 量 。 它 是 通过 计算 较 低 维和 矩阵 玉 的 特征 值 和 特征 向 量 而 间接 求 出 的 。 


互 澳 言 记 封 办 互 二 后 洗 辽 浊 
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将 特征 值 按照 从 大 到 小 的 顺序 排列 : 三 1i?…>Mw, 其 对 应 的 特征 向 量 为 由 。 这 样 ,每 
一 幅 人 脸 图 像 都 可 以 投影 到 由 za ,zm ,uaw 张 成 的 子 空 间 中 。 因 此 ,每 一 幅 人 脸 图 像 对 应 于 
子 空 间 中 的 一 个 点 。 同 样 , 子 空间 中 的 任 一 点 也 对 应 于 一 幅 图 像 。 有 了 这 样 一 个 由 四 , 岂 ，…uw 
张 成 的 子 空间 ,任何 一 幅 人 脸 图 像 都 可 以 向 其 投影 并 获得 一 组 坐标 系数 ,这 组 系数 表明 了 该 图 
像 在 子 空间 中 的 位 置 。 换 句 话说 ,任何 一 幅 人 脸 图 像 都 可 以 表示 为 z ,wm,…,uw 的 线性 组 合 ， 
其 加 权 系 数 即 是 K -L 变换 的 展开 系数 ,也 可 以 称 为 该 图 像 的 代数 特征 。 

对 于 任 一 待 压缩 的 人 脸 图 像 f, 可 以 通过 向 特征 子 空 间 投影 得 到 其 系数 向 量 ， 

y 一 UTC 一 ww) ， 了 一 (ua yu ye) 

得 到 的 系数 向 量 y 可 以 被 认为 是 对 它 的 压缩 ,因为 这 个 系数 向 量 维度 M 通常 远 远 小 于 

了 ,从 而 可 大 大 节省 存储 空间 。 并 且 通 过 了 可 以 将 其 变换 回去 , 


了 =Uy 十 x 
8.2.2 特征 向 量 的 选取 


上 面 的 辟 一 共有 M 个 特征 向 量 。 虽 然 M 比 六 小 很 多 ,但 通常 情况 下 ,M 仍然 显得 较 
大 。 事 实 上 ,在 实际 应 用 中 ,并非 需 要 保留 所 有 的 必 。 

考虑 到 使 用 K -L 变换 作为 对 人 脸 图 像 的 压缩 手段 ,可 以 选取 最 大 的 前 上 个 特征 向 量 ， 
使 得 





在 上 式 中 ,根据 问题 需要 可 以 选取 适当 的 a 值 ,如 选取 c=99% 。 这 说 明 样 本 集 在 前 个 
轴 上 的 信息 占 全 部 信息 的 99%% 。 
伶 站 = (ww ye 
则 上 述 对 图 像 的 压缩 变 为 
U=DrC1 一 四 
相应 的 重建 图 像 为 
三 一 ?十 z 


8.3 2DPCA 方法 实现 人 脸 图 僚 压 缩 与 重建 


8.3.1 概 述 


从 8.2 节 对 基本 的 PCA 实现 人 脸 图 像 压缩 与 重建 的 介绍 中 得 知 , 二 维 的 人 脸 图 像 事先 必 
须 转 换 成 一 维 的 向 量 ,而且 这 一 向 量 的 维 数 往往 是 很 高 的 。 根 据 一 批 训练 样本 实际 计算 得 到 
的 协 方差 矩阵 是 对 真实 协 方差 矩阵 的 近似 ,而 训练 样本 的 数量 相对 协 方差 怎 阵 的 维 数 来 说 往 
往 显得 过 小 ,因此 , 想 精确 得 到 协 方差 矩阵 是 困难 的 。 虽 然 实际 应 用 中 往往 并 不 直接 得 到 这 个 
协 方差 矩阵 ,而 是 通过 其 他 途径 间接 得 到 其 特征 值 和 相应 的 特征 向 量 ,但 并 不 说 明 这 样 可 以 精 


确 地 得 到 特征 值 和 特征 向 量 ,因为 特征 值 和 特征 向 量 是 由 协 方差 矩阵 决定 的 ,这 和 用 什么 方法 
得 到 它们 无 关 。 所 以 , 协 方 差 矩阵 的 不 精确 必然 导致 相应 的 特征 值 和 特征 向 量 的 不 精确 。 

为 了 克服 上 述 缺 点 ,Jian Yang，David Zhang， Alejandro FFrangi 和 Jing-yu Yang 于 
2004 年 提出 了 一 种 新 的 用 于 人 脸 图 像 的 压缩 和 重建 方法 , 即 two-dimensional Principal com- 
ponent analysis(C2DPCA) 。 这 种 方法 和 基本 的 PCA 方法 不 同 , 它 基于 二 维和 矩阵 而 不 是 一 维 向 
量 。 也 就 是 说 ,图 像 矩 阵 不 必 事先 转换 成 一 个 长 向 量 , 而 是 基于 原始 图 像 矩 阵 得 到 一 个 图 像 协 
方差 矩阵 。 相 对 于 基本 的 PCA 方法 得 到 的 协 方差 矩阵 ,2DPCA 方法 得 到 的 图 像 协 方差 矩阵 
的 尺寸 要 小 得 多 。2DPCA 相对 于 基本 的 PCA 主要 有 两 方面 的 优点 ; 一 方面 它 可 以 比较 精确 
地 得 到 协 方差 矩阵 ; 另 一 方面 ,2DPCA 求 相应 的 特征 向 量 所 用 的 时 间 也 比 基 本 的 PCA 方法 所 
用 的 时 间 短 。 

下 面 对 其 算法 思想 和 具体 步骤 进行 介绍 。 


8.3.2 2DPCA 算法 介绍 


假设 X 为 一 个 维 归 一 化 的 列 向 量 。 我 们 的 想法 是 将 图 像 4( 一 个 闫 Xz 的 和 矩阵) 按照 
公式 
Y 一 4X 
投影 到 忆 上 。 因 而 ,得 到 了 一 个 产 维 的 投影 向 量 Y, 称 Y 为 图 像 4 的 投影 特征 向 量 。 那 么 如 
何 得 到 一 个 好 的 投影 方向 X 呢 ? 事实 上 ,所 有 样本 投影 后 的 分 散 程度 可 以 用 来 衡量 投影 向 量 
天 区 分 样本 的 能 力 强 弱 。 投 影 后 的 样本 越 分 散 , 开 就 越 好 。 
事实 上 ,可 以 用 投影 后 的 向 量 的 协 方差 的 迹 来 刻画 样本 投影 后 的 分 散 程度 , 即 
J(X) 一 tr(S。) (8-4) 
式 中 ,S. 表示 训练 样本 投影 后 的 向 量 的 协 方差 ;tr(S. ) 表 示 $。 的 迹 。 
最 大 化 式 (8 - 4) 的 物理 意义 在 于 找到 一 个 投影 方向 ,使 得 所 有 训练 样本 在 其 上 投影 后 的 
向 量 之 间 的 分 散 程度 最 大 。S. 的 协 方差 矩阵 可 以 表示 为 ， 
S: 一 忆 (Y 一 E(Y) ) (Y 一 EC(Y))7 一 EL4X 一 EC4K)][4X 一 EC4KX)]r 
一 EL(4 一 E(4)) 环 ][(4 一 E(4A) ) 瑟 ] 








因此 
tr(S-) 一 XT[E(4A 一 EC4))7(4 一 EA)]X 


可 以 定义 下 面 的 矩阵 ， 
CG, 王 E[(4 一 E(4))7(4 一 EC4))] 
和 矩阵 G, 被 称 为 图 像 协 方差 矩阵 。 从 定义 容易 知道 ,G, 是 盖 Xz 的 非 负 定 和 矩阵 。 可 以 利用 
训练 样本 图 像 直 接 计 算 G,。 假 设 一 共有 M 个 训练 图 像样 本 ,mm Xi 矩阵 4;( 一 1,2,…-.,M) 表 
示 第 7 个 训练 图 像 ,4 表示 所 有 训练 样本 的 平均 图 像 。 


1 村 
4 一 站 立 色 


“那么 ,G, 可 以 写成 





J4 
G = 十 辣 (4h， 4)T(4i 一 亏 ) (8-5) 
jj=1 
因此 , 式 (8 -4) 可 以 改写 成 


二 
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本 (和 ) 一 XTGX (8-6) 
式 中 ,X 为 归 一 的 列 向 量 。 
式 (8 - 6) 为 一 般 总 体 分 散 度 准 则 (Generalized Total Scatter Criterion) 。 使 得 J(X) 最 大 
化 的 归 一 化 向 量 导 sw 被 称 为 最 优 投影 轴 。 也 就 是 说 ,所 有 训练 图 像样 本 矩阵 投影 在 Xo. 之 后 
得 到 的 向 量 之 间 的 分 布 散 度 最 大 。 
文献 [21] 指 出 ,Xo 是 与 G, 的 最 大 特征 值 对 应 的 特征 向 量 。 一 般 说 来 ,只 有 一 个 最 佳 投影 
方向 往往 是 不 够 的 ,需要 找 出 一 系列 的 投影 方向 , 即 投影 方向 集 {(Xi,X:,…,Xs} ,满足 使 得 
J(X) 尽 量 最 大 化 以 及 彼此 正 交 的 原则 , 即 
{ 瑟 |， X3 一 arg maxJ(X) 
下 [下 一 0， 1 痛 ji 一 1, 2 
事实 上 ,满足 上 述 原 则 的 投影 方向 集 (Xi ,Xs ,… ,Xe 是 与 G, 的 前 d 个 最 大 特征 值 对 应 的 和 披 
此 正 交 的 特征 向 量 。 


8.3.3 图 像 压 缩 (特征 提取 ) 


可 以 利用 由 2DPCA 得 到 的 投影 方向 集 { 忆 ,Xs ,…,Xs )} 对 图 像 进行 压缩 。 对 于 一 个 给 定 

的 图 像样 本 4, 令 
Ji 一 (4 一 4 人 4) 一 1 2 

这 样 可 以 得 到 一 系列 的 投影 向 量 刀 i ,Y* ,…,Ys, 称 之 为 样本 图 像 4 的 主 成 分 (向 量 )。 这 里 读 
者 可 能 已 经 注意 到 ,用 2DPCA 方法 得 到 的 主 成 分 是 一 个 向 量 , 而 基本 的 PCA 方法 得 到 的 主 
成 分 是 标量 。 
令 了 3 一 [Yi ,Y:,…，,Yv] 

称 其 为 样本 图 像 4 的 压缩 矩阵 或 者 特征 矩阵 (特征 图 像 )。 这 就 完成 了 对 给 定 图 像 的 
压缩 。 


8.3.4 图 像 重 建 


基本 的 PCA 方法 中 ,可 以 利用 图 像 压缩 后 的 特征 向 量 和 主 成 分 来 完成 对 图 像 的 重建 。 与 
之 类 似 ,2DPCA 可 以 按照 下 面 的 步骤 完成 压缩 后 图 像 的 重建 。 
设 属于 图 像 协 方差 矩阵 G, 的 最 大 的 前 4d 个 特征 值 的 特征 向 量 为 Xi,X: ，,…,Xs, 当 图 像 
和 矩阵 在 其 上 投影 后 ,得 到 的 主 成 分 向 量 为 
区 一 (4 一 4A)X， R 一 1,2，…Q 
令 V 一 [7Y:,，…,Yvz] 
了 一 [X ,XXXz] 


因此 对 于 给 定 的 样本 图 像 4: 
V 一 (4 一 A)U (8-7) 
由 于 筷 ,X ,…,Xs 是 彼此 正 交 的 ,所 以 从 式 (8 - 7) 容易 得 到 4 的 重建 图 像 : 
可 
和 一 VUT 十 太一 >)YeXT 十 及 (8-8) 
二 一 1 
如 果 令 


和 1 
4 一 YX 十 卫 


第 8 章 案例 15: 人 脸 图 像 压缩 与 重建 和 


我 们 称 4, 为 4 的 重建 子 图 像 , 它 和 4 以 及 全 的 尺寸 一 样 。 从 式 (8 - 8) 可 以 看 到 ,入 可 以 近似 
地 表示 成 & 个 子 图 像 之 和 。 重 建 的 精度 和 之 前 选择 的 G, 的 前 d 个 最 大 特征 值 的 具体 值 有 


关 , 如 果 d 一 z(z 为 G, 的 全 部 特征 值 个 数 ) ,那么 重建 后 的 4 一 4; 和 否则 ,入 是 4 的 近似 。 


8.4 MatPCA 方法 实现 人 脸 图 僚 肘 绞 与 重建 


8.4.1 概 述 


MatPCA 方法 是 由 Songcan Chen ，Yulian Zhu ，Daoqiang Zhang ， Jing -Yu Yang 在 
2004 年 提出 的 ,将 其 用 在 特征 提取 方面 。 该 方法 主要 是 受 2DPCA 的 启发 。 在 处 理 庞 大 的 向 
量 形态 特征 时 ,将 其 转化 成 矩阵 形态 特征 来 利用 2DPCA 方法 对 转换 后 的 特征 矩阵 进行 二 次 
特征 提取 。 这 样 处 理 在 模式 识别 的 时 候 可 以 提高 识别 准确 率 以 及 处 理 速度 。 

MatPCA 在 面 对 向 量 形 态 的 特征 时 会 转化 成 矩阵 形态 的 特征 ,前 提 是 这 个 向 量 的 长 度 必 
须 是 合 数 ,否则 无 法 转化 成 二 维和 矩阵 。 如 果 是 矩阵 形态 的 特征 ,那么 MatPCA 就 不 用 提前 对 
其 进行 处 理 了 。 因 此 对 于 图 像 矩 阵 来 说 ,如 果 将 其 看 成 矩阵 特征 ,那么 MatPCA 方法 和 
2DPCA 方法 是 类 似 的 。 

对 于 图 像 矩 阵 , MatPCA 方法 和 2DPCA 方法 是 类 似 的。 只 不 过 2DPCA 是 对 原始 图 像 矩 
阵 进行 行 投影 ,从 方差 最 大 化 的 角度 来 寻找 最 优 投影 方向 ;而 MatPCA 是 对 原始 图 像 矩 阵 进 
行列 投影 ,从 重 构 误差 最 小 的 角度 来 寻找 最 优 投影 方向 。 两 种 方法 殊途同归 ,都 要 对 各 自 的 图 
像 协 方差 矩 阵 求 特征 值 , 并 根据 实际 需要 确定 选择 最 大 特征 值 的 个 数 。 


8.4.2 MatPCA 算法 
设 一 共有 M 个 关 Xz 的 训练 图 像样 本 4; (j 王 1,2,…,M) ,训练 样本 的 平均 图 像 为 不 。 令 


避 一 (2 yxXz yz) 
满足 : 下 7 天 一 了 
其 中 ,yz ,xu 为 长 为 m 的 列 向 量 。 对 于 图 像 4, 我 们 可 以 得 到 如 下 的 线性 变换 ， 
到 一 和 (4 一 全 ) (8-9) 


类 似 于 2DPCA ,在 寻找 合适 的 X 时 ,需要 遵循 一 定 的 原则 ,使 得 投影 后 尽 可 能 多 的 保留 
原来 训练 图 像样 本 的 信息 。 一 种 可 行 的 原则 就 是 采用 重建 误差 原则 (Reconstructed Error， 
RCE) , 即 最 小 化 : 


1 谤 和 
RCECX) 一 商 之 14, 一 全 (8-10) 
式 中 ,14, 一 全 ,| 表示 和 矩阵 2 - 范 数 ,人 ,一 XY 十 Gi 一 1,2， ,MD 。 
对 于 和 拖 阵 4 来 说 ,141=tr(C447) ,因此 


ad 对 
RCE(X) 一 直 2 14, 一 4 省 一 大 疡 14, 一 4 用 一 trCXTSMX) (8-11) 
E 一 1 一 1 


其 中 : 
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Shu 一 丰 袜 (4, 一 专 ) (4, 一 瑟 )7 
Se 称 为 由 给 定 样本 矩阵 得 到 的 总 体 协 方差 矩阵 。 
从 式 (8 -11) 可 以 明显 看 出 ,只 需要 最 大 化 式 (8 - 12) 即 可 : 
J(X) 一 trCXTSYX ) (8 -12) 
式 (8-12) 等 价 于 求解 如 下 矩阵 方程 








SOX 一 XA (8-13) 
其 中 ,4=diag (Ahz,…,w) 是 对 角 矩 阵 , 其 对 角 元 素 即 S%' 的 所 有 非 负 特 征 值 ,X 是 由 特征 
向 量 组 成 的 矩阵 。 

接 下 来 在 选取 特征 值 的 时 候 可 以 参考 基本 的 PCA 方法 以 及 2DPCA 方法 , 即 选取 适当 的 

ax 值 ,使 得 : 

> 

寺 5 

Za 


在 确定 合适 的 4 之 后 进而 得 到 由 相应 的 特征 向 量 组 成 的 投影 矩阵 光 。 


8.5 ModulePCA 方法 实现 人 脸 图 像 压缩 与 重建 


8.5S.1 概 述 


ModulePCA 方法 是 由 Rajkiran Gottumukkal，Vijayan K. Asari 在 2003 年 提出 的 。 在 利 
用 ModulePCA 方法 对 图 像 进 行 压缩 与 重建 时 主要 是 将 每 个 训练 图 像 都 划分 成 一 些 尺 寸 大 小 
都 一 样 的 子 图 像 , 然 后 将 所 有 训练 图 像 的 所 有 子 图 像 集 合 在 一 起 进行 PCA 分 析 , 得 到 相应 的 
总 体 协 方差 矩阵 。 

在 对 测试 图 像 进行 压缩 时 ,事先 按照 训练 图 像 那样 的 划分 方法 将 测试 图 像 划分 成 子 图 像 ， 
然后 逐个 对 子 图 像 进行 压缩 。 重 建 时 也 是 逐个 对 压缩 的 子 图 像 进行 重建 ,然后 再 拼接 成 原来 
的 图 像 。 


8.5.2 ModulePCA 算法 


设 一 共有 M 个 痉 Xz 的 训练 图 像样 本 4; (G 一 1,2,…，M) , 令 mn yn 分 别 为 图 像 纵 向 和 横 
向 均匀 划分 的 个 数 。 那 么 每 个 测试 图 像 均 可 划分 成 mm 义 个 子 图 像 
4 (1 一 1,2，…，M,R 一 1,2，…72197 一 1, 2 7 ) 。 


5 “ 


未 = 尿 2 > 7 2714m 


1721 j 二 1 4A=1 1 


为 所 有 训练 图 像 所 有 子 图 像 的 均值 ,计算 所 有 子 图 像 的 总 体 协 方差 矩阵 ; 


小 内 认 讨 煌 汪 由 入 十 GYTIVIN 淹 让 才 路 风 洲 诗 六 天 十- 西 澳 言 订 二 六 也 二 怀 过 沪 计 








人 


af 
8. 一 THL 2) > (hu 一 起 ) (Chu 一 下) 


1721 j=1 4=1 4 二 1 
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tilab， 


选取 适当 的 值 , 求 8. 的 特征 值 使 得 ， 


1 一 了 
在 确定 合适 的 d 之 后 进而 得 到 由 相应 的 特征 向 量 组 成 的 投影 矩阵 : 克 一 [ziyzz，…zz]。 
对 于 测试 图 像 了 ,将 其 按照 训练 图 像 划 分 模式 划分 成 ， 
Tu (& 一 1,2， za 3 一 1,2，7 ) 


计算 
Ju 一 XTCTu 一 人.) 
完成 对 测试 图 像 各 个 子 图 像 的 压缩 。 
计算 
世 一 Xu 十 不 


完成 对 测试 图 像 各 个 子 图 像 的 重建 ,将 重建 后 的 子 图 像 拼 接 在 一 起 完成 对 了 工 的 重建 。 


8.6 和 工法 在 MATLAB 平台 上 的 实现 


8.6.1 概 述 


本 章 前 半 部 分 对 各 种 PCA 方法 对 人 脸 图 像 压缩 与 重建 进行 了 理论 方面 的 介绍 。 这 节 着 
重 给 出 算法 在 MATLAB 平台 上 实现 的 代码 。 为 了 方便 读者 操作 ,算法 采用 GUICGraphical 
User Interface) 的 形式 给 出 ,并 给 出 关键 代码 部 分 的 注释 ,方便 阅读 。GUI 采取 了 代码 编写 的 
方式 而 没有 采取 GUIDE(GUI Design Enviornment) 方式 ,一 方面 是 由 于 笔者 更 习惯 于 用 代码 
编写 GUI 这 种 形式 , 另 一 方面 还 考虑 到 程序 在 不 同 MATLAB 版 本 上 运行 的 方便 性 。 

本 节 一 共有 两 个 GUI 程序 ,一 个 是 用 基本 的 PCA 方法 与 2DPCA 和 MatPCA 方法 实现 
图 像 压缩 和 重建 的 对 比 ; 另 一 个 是 用 ModulePCA 方法 实现 图 像 压 缩 和 重建 。 


8.6.2 基本 PCA 与 2DPCA 和 MatPCA 方法 GUI 
源 代 码 如 下 : 
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TwoDPca = getappdata(TrainImagesH，TwoDPca ); 
Rebuilt = Y x TwoDPca.EigV'+ TwoDPca. hbari 
figure(" defaultuicontrolunits'， normalized ); 
NewRxesH = axes('Pos',[.08 .08 .72 ,0.72]，visible'，on ); 
imshow(uint8(CRebuilt)7? 
title([get(get(MxesH,'title) ,string'),: 用 2DPca 算 法 重建 后 图 像 ]) 
Mse = sqrt(mean(mean((Rebuilt - double(Ima)). 2 )) ); 
uicontrol(gcf," style'' text' pos' [0.71 0.5 0.28,0.1]，string'，... 
[重建 图 像 与 原 图 像 均 方 根 误 差 :,num2str(Mse)]，fontsize' ,10); 
case ' Mat Pca 
[filename，pathname，flag] = uigetfile( “* ,mat'， 
' 请 导入 MatPca 算法 压缩 的 图 像 和 矩阵) 
证 一 flag 
returni % flag 为 0, 用 户 取消 选择 ,返回 ; 
end 
a= load([pathname filename])# 
Y= 己 .YF 
MatPca = getappdata(TrainImagesH， MatPca )， 
Rebuilt = MatPca. EigV* 立 + MatPca. Rbari 
figure(' defaultuicontrolunits'， normalized )， 
NewRxesH = axes("Pos',[.08 .08 .72 ,0.72],visible' on)3 
imshbow(uint8(Rebuilt))# 
title([get(get(MxesH,'title)) ,string') :用 MatPca 算 法 重建 后 图 像 ]) 
Mse = sqrt(mean(mean((Rebuilt- double(Ima)). 2 ))》 ); 
uicontrol(gcf,' style',，text', pos',[0.71 0.5 0.28,0.1]，string'…，... 
[重建 图 像 与 原 图 像 均 方 根 误差 :, ,num2str(Mse)]，fontsize ,10); 
otherwise 
end 
end 
%================================================================= 
s% function Ima0ut, 导 出 主 界面 坐标 轴 中 的 图 像 , 便 于 保存 
%================================================================= 
function Ima0ut(hObject,eventdata) 
NewFig = figurei 
NewRxesH = copYobj(hxesH,NewFig);% 复制 旧 坐 标 轴 对 象 到 新 的 figure 
set(NewRxesH," position',[0.1300 0.1100 0.7750 0.8150]); 
set(NewFig," colormap ',get(fig, colormap 7))# 
end 
end 


运行 上 述 程序 得 到 图 8.1 所 示 界 面 。 右 边 有 三 个 单 选 按钮 ,分 别 为 PCA 方法 .2DPCA 方 法 
和 MatPCA 方 法 对 图 像 进 行 压缩 和 重建 ,默认 为 PCA 方法 。 然 而 ,界面 一 些 菜单 选项 和 按钮 处 
于 不 可 用 状态 ,这 是 由 算法 处 理 流程 决定 的 。 首 先 要 选择 “训练 图 像 " 菜 单项 来 选取 训练 图 像样 
本 。 这 里 我 们 选择 的 是 ORL 数据 库 。ORL 数据 库 可 以 在 随 书 免费 附 赠 的 源 代码 中 找到 。 

选择 好 “训练 图 像 "后 ,会 弹出 提示 对 话 框 ,提示 选择 测试 图 像 。 这 时 候 “ 测 试图 像 "菜单 项 
变 为 可 用 状态 , 接 下 来 选择 接受 压缩 的 测试 图 像 , 璧 如 选择 名 为 ORL001. bmp 的 图 像 ,得 到 图 
8. 2 所 示 界 面 。 这 时 候 ,* 添 加 椒盐 噪声 ”和 “高 斯 噪声 ”按钮 以 及 “压缩 图 像 "菜单 项 就 可 用 了 ， 
可 以 直接 压缩 图 像 ,也 可 以 添加 嗓 声 后 再 压缩 图 像 , 如 图 8. 3 所 示 。 压 缩 图 像 后 会 提示 保存 压 














缩 后 的 图 像 ,保存 完毕 后 “重建 图 像 ” 沫 单项 可 以 使 用 ,以 供 重建 图 像 时 使 用 如 图 8. 4 所 示 。 








图 8.1 运行 PcaMethodsforImageRebuilt 得 到 的 界面 





图 8.3， 添 加 高 斯 噪声 后 的 测试 图 像 
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图 8.4 用 PCA 方法 重建 后 的 的 测试 图 像 
读者 可 以 自行 操作 该 GUI 进行 实验 ,GUI 的 回调 函数 都 以 nested function 的 形式 给 出 ， 
方便 数据 共享 。 此 外 还 可 以 多 次 利用 setappdata 和 getappdata 进行 GUI 不 同 控件 之 间 的 数 
据 传递 。 


8.6.3 Module PCA 方法 GUI 
源 代码 如 下 : 


function ModuleforImageRebuilt 

fig = figure('" defaultuicontrolunits ',, normalized', name',,.. 

"ModulePca 方法 用 于 图 像 压 缩 与 重建 numbertitle'，off' menubar' ,none') 

RxesH = axes(' Pos ',[.08 .08 .72 ,0.72],'visible on 

TrainImagesH = uimenu(fig，label ,训练 图 像 ，tag 训练 图 像 ，. . 
"callback'@TrainTmage); 

TestImageH = uimenu(fig,, label', 测 试图 像 '' tag', 测 试图 像 ,' callback'. .. 
@TestInage，enable'，off); 

SaltPepperNoiseH = uicontrol(fig, style'， pushbutton'，Pos'.. 
[0.1,0.88,0.2,0.08], string', 添 加 椒盐 噪声 ', fontsize',10,... 

"enable'，off '， callback',@SaltPepperNoise); 

GaussianNoiseH = uicontrol(fig, style', pushbutton', Pos',... 间 
[0.55,0.88,0.2,0.08]， string', 添 加 高 斯 噪声 ,fontsize',10,，. 
"enable'，off'， callback',@GaussianNoise); ER 

CompressImageH = uimenu(fig， label ,压缩 图 像 '，tag', 压 缩 图 像 ，. . 
"callback',@CompressImage,' enable''off)7 

RebuiltImageH = uimenu(fig," label', 重 建 图 像 '" tag'",' 重 建 图 像 ，.. 
"callback',@RebuiltImage," enable''' off7); 

Ima0utH = uimenu(fig，label', 导 出 图 像 到 新 figure'，callback',@ImaOut); 

========================= 





1 
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%==============================: 


#% function TrainImageyModulePCR 方 法 训练 图 像 函数 


%=================: 


function TrainImage(hObject,eventdata) 








数 雪 上 汪 将要 锅 权 出 导 周 于 “ 民 共 典 葵 冤 棒 保 中 请 虐 MATLAB 生 可 委 江 季 基 林 检 塌 。 
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end 











ImageData. name = [ ImageData. filename,' 添 加 高 斯 噪声 均值 ',answer{1),，,. 
访 差 ,answer{f2}]， 

title(ImageData. name); 

setappdata(TestImageH,, ImageData',ImageData); 


%==========================================================-=-=- 


g function CompressImage, 压 缩 图 像 


%===============: 





function CompressImage(hObject,eventdata) 


ImageData = getappdata(TestImageH,' ImageData))} 

IJma = ImageData. datai 

ModulePca = getappdata(TrainImagesH, ModulePca'); 

RowDivideNum = getappdata(TrainImagesH,， RowDivideNum ') ; 

ColDivideNum = getappdata(TrainImagesH, ColDivideNum) ， 

s# 以 上 获取 先前 存储 的 相关 数据 

[Nrow,Ncol] = size(Ima); 

ImaDivide = mat2cell(double(Ima) ,Nrow/RowDivideNum x ones(1,RowDivideNum) ,， ，. 
Ncol/ColDivideNum * ones(1,ColDivideNum) ) ; 多 图 像 前 分 


CompressIma = cellfun(@(x) ModulePca. EigV'* (x- ModulePca. hbar) ,ImaDivide,... 


“UniformOutput ',false);s% 各 个 模块 压缩 


h= helpd1g( 当 前 图 像 已 用 Module 算法 压缩 完毕 ,请 按 提示 保存 结果 以 供 重建 调用 ',，. . 


"Module 算法 图 像 压 缩 ); 
uiwait(h); 
[file,path] = uiputfile(['Module'，. .. 
get(get(gca,"title')，string) ,mat 站 ,保存 当前 压缩 图 像 为 ,)， 
证 一 file 
returny 
end 
save([path,file], CompressIma'); 
set(RebuiltImageH，enable'，on'"); 


end 
$%================================================================= 
负 function RebuiltImage, 图 像 重 建 
$================================================================= 


function RebuiltImage(hObject,eventdata) 


ImageData = getappdata(TestImageH,' ImageData')); 
Ima = ImageData. datai 
[filename，pathname，flag] = uigetfile('x .mat'.. 
请 导入 ModulepPca 算法 压缩 的 图 像 矩 阵 7， 
证 一 flag 
return# % flag 为 0, 用 户 取 消 选 择 ,返回 } 
end 
a= load([pathname filename]);% 载 人 存储 的 压缩 图 像 
CompressIma = a. CompressImai 
ModulePca = getappdata(TrainImagesH,'ModulePca'"); 
Rebuilt = cellfun(@(x) ModulePca.EigV * x+ ModulePca.Rbar,CompressIma,... 
"Uniformoutput ',false);% 压 缩 的 图 像 各 个 模块 重建 
Rebuilt = cell2mat(Rebuilt);$ 将 重建 的 图 像 模 块 拼 成 图 像 
figure(' defaultuicontrolunits'"normalized); 


第 8 章 ， 案例 15; 人 脸 图 像 压缩 与 重建 /JJTLnRB 


Www.iLoveMafiab.cn 





国 sserseramwsvssswssa- 互 淖 言 让 过 坊 卫 机 于 半 党 讲 


ATIET MATLAB 高 效 编程 技巧 与 应 用 : 25 个 案例 分 析 
《 人 





运行 上 述 代码 后 会 得 到 类 似 于 图 8. 1 所 示 界 面 , 读 者 可 以 自行 操作 界面 ,在 操作 界面 的 过 
程 中 可 以 对 源 程序 中 感 兴趣 的 代码 行 设置 断 点 ,从 而 方便 了 解 程序 的 每 一 步 的 具体 功能 。 


。 沪 沿 闪闪 灿 六 由 上-SYTIVJN 郊 岩 市 这 注 站 谭 泳 天 二 ”本 澳 言 评 吉 轴 互 节 必 党 辽 褒 











9.1 业 例 16: 北 京 市 园 民 生产 总 值 的 记 色 分 析 


9.1.1 概 述 


在 本 案例 里 主要 提出 了 一 种 基于 数据 融合 的 灰色 预测 方法 。 该 方法 具有 较 广泛 的 应 用 范 
围 , 将 其 运用 到 北京 市 国民 生产 总 值 GNP 的 预测 中 ,取得 了 较 好 的 预测 效果 。 同 时 运用 灰色 
系统 理论 中 灰色 关联 度 的 理论 分 析 了 北京 市 国民 生产 总 值 同 第 一 .第 二 、 第 三 产业 从 业 人 数 的 
关系 紧密 程度 ,从 而 给 出 了 大 力 发 展 第 二 、 第 三 产业 理论 的 量化 分 析 。 


9.1.2 引 言 


灰色 系统 理论 是 我 国学 者 邓 聚 龙 教授 创立 的 ,是 近 20 年 取得 飞速 发 展 的 新 兴 理 论 。 灰 色 
系统 理论 专门 针对 贫 信息 小 样本 数据 进行 分 析 , 其 特点 是 计算 量 小 ,对 数据 一 般 不 需要 假定 
服从 某 一 特定 的 分 布 , 而 是 直接 从 所 面 对 的 数据 中 提取 信息 。 我 国 建国 仅 几 十 年 ,一 些 统计 数 
据 的 数量 极其 有 限 ,在 分 析 这 些 数 据 时 ,灰色 系统 理论 具有 统计 分 析 无 法 比拟 的 优势 。 灰 色 系 
统 理论 中 的 CGCM(1,1)? 模 型 非常 适合 具有 近 指数 规律 数据 的 预测 问题 ,所 需 数据 量 要 求 低 ,一 
般 几 个 数据 就 可 以 建立 起 模型 。 

数据 融 合 是 目前 研究 的 热门 领域 ,其 研究 动力 最 初 来 源 于 军事 领域 。 军 事 上 为 了 精确 分 
析 获 得 的 情报 ,以 便 从 中 获得 尽 可 能 多 的 信息 ,往往 需要 处 理 来 自 不 同 源头 .不 同类 型 甚至 不 
同时 期 的 数据 。 如 何 有 效 地 从 现 有 的 数据 进行 融合 进而 获取 比 采用 单一 数据 更 加 可 靠 的 结果 
构成 了 数据 融合 的 研究 重点 。 

灰色 关联 度 理论 提供 了 衡量 彼此 有 关系 的 两 个 时 间 数 列 之 间 关联 程度 的 一 种 量化 方法 。 
通过 对 原始 时 间 序 列 或 者 现 有 关联 度 理论 的 一 定 处 理 、 变 形 ,可 以 建立 起 不 同 的 关联 度 , 如 灰 
色 绝 对 关联 度 、 灰 色相 对 关联 度 .灰色 综 合 关联 度 。 

胡 振 涛 , 刘 先 省 在 2005 年 提出 了 一 种 针对 多 次 测量 所 得 数据 的 融合 方法 。 本 案例 考虑 到 
所 用 数据 量 的 不 同 ,建立 的 GM(1,1) 模 型 的 预测 结果 也 有 相应 的 变化 , 故 采 用 不 同 数据 量 的 
数据 建立 不 同 CM(1 ,1) 预测 模型 ,得 到 不 同 的 预测 值 ,进而 可 用 数据 融合 的 方法 对 其 进行 融 
合生 成 最 终 预 测 值 , 对 北京 市 GNP 的 预测 结果 表明 该 方法 具有 较 好 的 预测 精度 。 在 预测 北 
京 市 GNP 的 同时 ,本 案例 还 分 析 了 第 一 .第 二 、 第 三 产业 的 从 业 人 员 与 GNP 的 关联 程度 , 定 
量 分 析 了 为 什么 要 大 力 发 展 第 二 、 第 三 产业 。 


LA 
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9.1.3 赤 色 数 据 融 含 预测 算法 与 赤色 关联 度 


1. GM(1,1) 模 型 的 基本 理论 
定理 9.1 设 X'%' 为 非 负 序列 : 
丑 @ 一 《2 (1 yz (27 923 (2))，z0 (ED) 三 0， 一 1)2，…，7 
X 为 X 的 一 阶 累 加 生成 (first order accumulated generating operation,1-AGO) 序列 , 


夫 
XO 一 (z@ (1) ze (2) yzZD (2)) ，zc (RE) 一 CD 下 一 1, 2，…，7 


1 
2 为 X 的 紧邻 均值 生成 序列 , 即 
2 一 (z (2),zo (3)，… ,zc (Caz)) 
其 中 ，z' (R) 一 0.5(CzO (CD) 十 z (KE 一 1))(R 一 2，3，…y7) 。 
若 4 一 [La,b] 7 为 参数 列 , 且 
9 二 2 人 T 
Y 一 [zol(2) ,ze (37 ,yz Ca)]T， 2 一 [ 到 (2) “ (3) “; | 
则 GM(1,1) 模 型 ; 
0 (RE) 十 az (R) 一 
的 最 小 二 乘 估计 参数 列 满足 ， 
全 一 (BTB) -BTY 
下 攻 生生 -生生 全 全 和 和 全 这 本 人 
着 设 p 一 TI 干 0.55'% 一 I 十 0.55" 则 
TO (A) 一 (8 一 az (1))e 2 (9 一 1) 


式 (9- 1) 就 是 本 案例 用 以 预测 的 依据 方程 式 。 详 细 证 明 可 以 参见 文献 [6] 。 
GM(1,1) 模 型 的 MATLAB 代码 如 下 : 






2. 灰色 数据 融合 预测 算法 
设 aa ,ao 为 由 兽 个 GM(1,1) 模 型 预测 得 到 的 期 望 时 刻 的 值 。 定 义 任意 两 个 值 之 
间 的 距离 如 下 : 

本 一 |a 一 | ，iJE{1,2，…zz)} 
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一 + 10xotn [KTCRE 


构造 两 个 数据 间 支 持 度 函 数 
一 2 证 者 @. 四 
方 一 cos( 元 到 入) ， JE (1,2，…772} 《9-2》 


满足 : 
1) 六 与 相对 距离 成 反比 关系 , 即 两 个 值 相差 越 大 ,彼此 之 间 支 持 程度 越 小 。 
2) 廊 E[0,1] ,使 数据 的 处 理 能 够 利用 模糊 集合 理论 中 隶属 函数 的 优点 ,避免 数据 之 间 相 
互 支 持 程度 的 绝对 化 。 
建立 如 下 的 支持 度 矩 阵 ， 
及 一 (7 xm 


为 了 从 w ,ez ,van 融合 得 到 最 终 的 w, 需 要 确定 每 个 w 的 权重 w ,ou 满足 iuw = 1 ， 


注意 到 w 应 综合 包含 ra ,ra,…,ram 的 信息 ,从 而 要 寻找 一 组 非 负数 mw ,w ,…,uw ,使 得 

人 一 泣 1 《9 -3)》 

了 一 1 
式 (9-3) 可 以 改写 为 矩阵 形式 : 
用 一 RV 
其 中 , 色 ,Y 分 别 为 由 w 和 了 组 成 的 列 向 量 ;R 为 非 负 对 称 矩阵 ,存在 最 大 模特 征 值 ,与 其 对 
应 的 特征 向 量 为 
凤 一 [四 夏 ， 克 ] 

分 量 全 为 非 负数 ,由 特征 向 量 特征 值 性 质 , 可 以 取 


故 本- (9 -4 
乌 ? 
融合 后 得 到 
aa 一 >)wai (9-5) 
1 


该 算法 的 MATLAB 代码 如 下 : 





“ 凋 瘦 谎 灿 汪 由 和 片 于 8SVTIVIN 泥 由 林 旋 赂 洲 谭 沪 天 二 。 西 放言 市 埃 办 瑟 基尼 等 陀 计 


/1 


“ 洲 沿 证 准 籼 币 由 几 二 SGVTIVIN 淹 序 证 路 岂 监 广 六 天 本- 互 澳 言 记 过 急 卫 此 于 学 防 讲 
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w= [1/2,1/2]; 
otherwise 
DataCombine = nchoosek(1:length(x),2)4; %x 元 素 两 两 之 间 可 能 的 所 有 组 合 方式 
d= abs( x(DataCombine(:,1)) 一 x(CDataCombine(:,2))); 
maxd = max(cd) 
[Y,X] = meshgrid(1;Lx,1yis) 
R= cos(Pi# (X(X) 一 x(Y))/(2 交 maxd)); 多 构造 支持 度 和 矩阵 
[v,D] = elig(R) ， 
w=V(:yLx)/sumCV(:,Lx)); 
已 三 买 闪 网 


end 


例如 ,在 某 个 比赛 项 目 中 ,一 共有 10 个 评委 打分 ,给 出 的 分 数 分 别 为 9.9. 5.9.7、8.5、10、 
和 09. 2、9. 3,9. 5、9. 6, 按 照 通常 的 做 法 ,我 们 会 去 掉 一 个 最 高 分 ,去 掉 一 个 最 低 分 , 剩 下 的 取 
平均 值 作为 选手 的 最 后 得 分 。 可 是 ,严格 来 讲 , 如 果 专 家 比较 权威 ,最 高 分 最 低 分 也 反映 了 选 
手 某 方面 的 一 些 情况 ,贸然 去 掉 的 话 会 损失 一 些 信息 。 如 果 采 用 上 面 的 数据 融合 算法 ,可 以 充 
分 利用 这 些 信息 ,同时 这 些 信息 又 不 会 对 结果 造成 决定 性 影响 。 

利用 上 面 的 程序 进行 计 分 ,代码 如 下 ， 


x=[9 ;9.539:7 1855 .10 9:0.9.2- 9.3. 9.5 9.6]， 
[a,w] = DataFusionSCx) 
>>x=[9 9.5 9.7 8.5 10 9.0 9.2 93 9.5 9.6]， 
>> [avw] = DataFusionS(Cx) 
问 本 

9.3486 


如 果 我 们 去 掉 一 个 最 高 分 和 最 低 分 ,然后 取 平 均值 ,最 后 的 得 分 是 9. 35 分 ;直接 求 平均 
值 , 最 后 得 分 是 9. 33 分 :而 用 融合 法 求 平均 值 ,最 后 的 得 分 是 9. 348 6 分 。 由 此 可 见 , 该 融合 


方法 比 直接 求 平均 值 法 具有 较 强 的 稳健 性 ,尤其 是 有 蜡 常 值 的 时 候 , 它 能 参考 异常 值 所 包含 的 


信息 ,同时 也 不 至 于 过 多 受 异 常 值 的 影响 。 

灰色 关联 度 

条 幅 所 限 , 有 关 灰色 绝对 关联 度 以 及 灰色 相对 关联 度 的 定义 及 详细 计算 公式 参见 文献 
[6] ,这 里 只 给 出 相应 关联 度 的 MATLAB 计算 代码 。 灰色 相对 关联 度 是 对 原始 数列 进行 “ 初 
值 化 “ 即 原始 数列 每 个 元 素 都 除 以 第 一 个 元 素 ) 后 的 新 数列 的 绝对 关联 度 。 为 了 多 方面 比较 ， 
在 这 个 案例 里 提出 了 一 种 将 原始 数列 先 * 归 一 化 ”, 然 后 再 算 新 数列 绝对 关联 度 的 方法 , 称 之 为 
“灰色 归 一 关联 度 ”。 

灰色 绝对 关联 度 的 MATLAB 代码 如 下 ， 


function r = GreyhbsR(x,Y) 。 1 

# 计算 序 列 x,Y 的 灰色 绝对 关联 度 和 

% 调用 语法 = * GreyhbsRCx,y) 2 

让 length(x) 一 = Iength(y) 的 
errord1g( 两 序列 长 度 不 等 ! ) 
return | 





end 下 人 入 
Xx0 = 工 一 X(1) 4 
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灰色 相对 关联 度 的 MATLAB 代码 如 下 : 





灰色 归 一 关联 度 的 MATLAB 代码 如 下 : 





.9.1.4 实例 分 析 
1. 灰色 数据 融合 预测 算法 预测 效果 7 
从 北京 市 统计 局 网 站 上 下 载 了 北京 市 1987 一 2002 年 的 GNP 以 及 第 一 、 第 二 ,第 三 产业 的 
职工 从 业 人 数 数据 , 见 表 9-1。 





* 攻 滞 齐 广 灿 症 册 生 二 8VTIVIN 光 诽 市 区 油 小 诗 注 天 本 -西关 言 本 党 轴 卫 站 针尖 防 渤 
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表 9-1 北京 市 1987 一 2002 年 国民 生产 总 值 以 及 三 大 产业 职工 人 数 


国民 生产 总 值 
7/ 亿 元 
326. 82 








410. 22 





455. 86 





500. 72 





598. 79 





709.00 





863. 23 





1084. 33 





1 395. 12 








1 616. 03 











1810. 49 





2011.77 








2 174. 97 








2 479. 32 











2 
目 * 训 沿 评 六 炎 和 让 片 式 SVTIVIWN 济 和 市 吕 岂 洽 认 六 天 本。 百 产 言 记 堵 办 互 基尼 等 院 讲 


2 846. 29 











3 213. 44 


对 于 国民 生产 总 值 的 预测 ,采用 要 预测 年 份 之 前 的 4 个 ,5 个 ,…，11 个 数据 来 分 别 建 立 


GM(1,1) 模 型 进行 预测 。 比 如 预测 2001 年 的 GNP, 我 们 采用 1997 一 2000 年 ,1996 一 2000 
年 ,……，,1990 一 2000 年 的 数据 分 别 建 模 预测 ,得 到 8 个 预测 值 , 然 后 对 其 进行 融合 得 到 最 终 
的 预测 值 。 其 代码 如 下 : 


GNP= [326.82 410.22 455.86 500.72 598.79 709.00 863.23 1084.33 1395.12 1616.03... 
1810.49 2011.77 2174.97 2479.32]; 3 

1GNP = length(GNP); 

pre= arrayfun(@(k) GM11(GNP(1GNP 一 ksend)),3:10) 


pre= 
1.0e+ 003 x 信和 


2.7372 2.7240 2.7286 2.7552 “2.8275 2.9005 ， 2.9645 “ 3.0188 
>> p= DataFusionS(pre) 兰 时 
p= 

2.8135e+ 003 


可 以 看 出 灰色 融合 预测 给 出 的 预测 值 为 2 813. 5 ,与 实际 值 相 比 误差 为 1.15% 。 
同 理 , 预测 2002 年 的 GNP, 用 同样 的 办 法 可 以 得 到 8. 个 预测 值 : 3 252.2,3 178.1， 


3 144.8,3 132.0,3 144. 0,3 203.3,3 270.6,3 334. 6。 最 后 融合 的 结果 为 3 198. 9, 与 实际 值 相 
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比 误 关 为 0. 45% 。 从 上 面 分 析 可 见 , 该 算法 具有 较 强 的 实用 性 ,虽然 对 预测 结果 直接 求 平 均 
值 似乎 在 某 些 情 况 下 精确 度 更 好 ,但 是 其 稳健 性 较 差 , 当 数据 有 异常 值 时 ,往往 效果 不 好 。 

2. 关联 度 分 析 

采用 灰色 绝对 关联 度 \ 灰 色相 对 关联 度 、 以 及 “灰色 归 一 关联 度 " 方 法 对 北京 市 GNP 和 各 
个 产业 从 业 人 数 进行 关联 分 析 , 代 码 如 下 : 


GNP= [326.82 410.22 455.86 500.72 598.79 709.00 863.23 1084.33 1395.12. 
1616.03 1810.49 2011.77 2174.97 2479.32 2846.29 3213.44]; 

m=[91.8 88.4 91.0 90.7 90.8 84.5 65.1 73.2 70.6 72.5 71.0 ... 
71.5 74.5 72.9 71.2 67.6]; 

m2 = [264.1 .267.6 266.3 281.6 279.7 281.6 279.4 272.2 271.0 260.1 257.6 226.0... 
216.2 208.2 215.9 235.3 ]; 

m3 = [242.3 228.1 236.6 254.8 263.5 283.2 283.3 318.9 323.7 327.6 328.1 324.7. 
327.9 338.2 341.8 376.3 ]; 

zl1 = GreyhbsR(GNP,ml); g% GNP 和 第 一 产业 从 业 人 数 的 灰色 绝对 关联 度 

r2 = GreyhbsR(GNP,m2); #% GNP 和 第 二 产业 从 业 人 数 的 灰色 绝对 关联 度 

z3 = GreyhbsR(GNP,m3); #% GNP 和 第 三 产业 从 业 人 数 的 灰色 绝对 关联 度 

I4 = GreyRR(GNP,ml1); 9% GNP 和 第 一 产业 从 业 人 数 的 灰色 相对 关联 度 

z5 = GreyRRCGNP,m2); $ GNP 和 第 二 产业 从 业 人 数 的 灰色 相对 关联 度 

z6 = GreyRR(GNP,nm3); % GNP 和 第 三 产业 从 业 人 数 的 灰色 相对 关联 度 

z7 = GreyUniR(GNP,ml)5 5 GNP 和 第 一 产业 从 业 人 数 的 灰色 归 一 关联 度 

r8 = GreyUniRCGNP,m2); % GNP 和 第 二 产业 从 业 人 数 的 灰色 归 一 关联 度 

r9 = GreyUniR(GNP,m3); % GNP 和 第 三 产业 从 业 人 数 的 灰色 归 一 关联 度 


将 得 到 的 各 个 关联 度 总 结 到 表 9-2 中 。 
表 9-2 北京 市 1987 一 2002 年 国民 生产 总 值 和 各 产业 从 业 人 数 的 各 种 灰色 关联 度 对 比 


灰色 关联 度 GNP 和 第 一 产业 从 业 人 数 | GNP 和 第 二 产业 从 业 人 数 | GNP 和 第 三 产业 从 业 人 数 
灰色 绝对 关联 度 0.5000 0.5000 0.5270 








灰色 相对 关联 度 0.5049 0. 505 1 0.541 2 
灰色 归 一 关联 度 0. 518 1 0.532 3 0.9770 








从 表 9 -2 可 以 看 到 ,各 产业 从 业 人 数 对 GNP 的 影响 情况 为 :第 三 产业 三 第 二 产业 三 第 一 
产业 。 其 中 第 三 产业 对 GNP 的 影响 最 大 ,第 一 、 第 二 产业 对 GNP 的 影响 差别 不 是 很 大 。 这 
样 就 运用 灰色 关联 度 理 论 给 出 了 为 什么 大 力 发 展 第 二 、 第 三 产业 的 量化 说 明 , 其 方法 以 及 结果 
可 供 有 关 部 门 借鉴 。 

本 案例 演示 了 一 种 基于 数据 融合 的 灰色 预测 方法 。 该 方法 具有 较 广 的 应 用 范围 。 为 
了 说 明 这 一 点 ,案例 预测 了 北京 市 的 GNP, 并 且 取 得 了 较 好 的 预测 效果 。 同 时 运用 灰色 关 
联 度 理 论 给 出 了 一 个 为 什么 要 大 力 发 展 第 二 、 第 三 产业 的 量化 说 明 。 案 例 中 基于 数据 融合 
的 灰色 预测 方法 还 有 许多 值得 研究 的 地 方 , 如 支持 度 函 数 的 选择 .基本 预测 方法 的 选择 等 ， 
感 兴趣 的 读者 可 以 自己 去 尝试 。 在 灰色 关联 度 理论 方面 的 研究 也 可 以 尝试 新 的 “灰色 关联 
度 ”。 
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9.2 要 例 17: 路 离 判别 法 与 Bayes 判别 法 在 分 类 中 的 应 用 


9.2.1 概 述 


判别 分 析 是 利用 已 知 类 别 的 样本 训练 模型 ,为 未 知 样本 判别 的 一 种 统计 方法 。 判 别 分 析 
产生 于 20 世纪 30 年 代 , 近 年 来 ,在 自然 科学 、 社 会 学 以 及 经 济 管理 学 科 中 都 有 广泛 的 应 用 。 

判别 分 析 的 特点 是 根据 已 掌握 的 .历史 上 每 个 类 别 的 若干 样本 的 数据 信息 ,总结 出 客观 事 
物 分 类 的 规律 性 ,建立 判别 公式 和 判别 准则 。 当 遇 到 新 的 样本 点 时 ,只 要 根据 总 结 出 来 的 判别 
公式 和 判别 准则 ,就 能 判别 该 样本 点 所 属 的 类 别 。 常 用 的 判别 分 析 方法 有 距离 判别 法 、Bayes 
判别 法 、Fisher 判别 法 和 逐步 判别 法 等 。 

判别 在 某 种 意义 上 讲 也 可 以 被 认为 是 分 类 。 本 案例 以 Bayes 判别 法 为 例 展示 了 Bayes 判 
别 法 在 分 类 中 的 应 用 。 其 中 ,距离 判别 法 的 基本 思想 是 :样品 和 哪个 总 体 距 离 最 近 , 就 判断 它 
属于 哪个 总 体 ,因此 距离 判别 法 也 称 为 直观 判别 法 。 距 离 判 别 法 只 要 求知 道 总体 的 特征 量 ( 即 
参数 ) 一 一 均值 和 协 方差 阵 , 不 涉及 总 体 的 分 布 类 型 , 当 参 数 未 知 时 ,就 用 样本 均值 和 样本 协 方 
差 阵 来 估计 。 所 以 ,距离 判别 法 简单 结论 明确 ,比较 实用 。 其 缺点 是 ,该 判别 法 与 各 总 体 出 现 
的 机 会 大 小 ( 即 先 验 概率 ) 完 全 无 关 , 并 且 没有 考虑 错 判 造成 的 损失 ,这 是 不 合理 的 。 

Bayes 判别 法 刚好 解决 了 上 述 提 到 的 问题 。Bayes 的 统计 思想 总 是 假定 对 研究 的 对 象 已 
有 一 定 的 认识 ,常用 先 验 概率 分 布 来 描述 这 种 认识 ,然后 抽取 一 个 样本 ,用 样本 来 修正 已 有 的 
认识 ( 先 验 概率 分 布 ) ,得 到 后 验 概率 分 布 。 各 种 统计 推断 都 通过 后 验 概率 分 布 来 进行 。 将 
Bayes 思想 用 于 判别 分 析 就 得 到 了 Bayes 判别 法 。 

关于 两 种 判别 法 的 详细 介绍 可 以 参考 文献 [11], 限 于 篇 幅 这 里 对 其 理论 不 进行 过 多 描述 。 


9.2.2 判别 方法 GUI 


本 小 节 给 出 这 两 种 判别 方法 实现 的 简单 的 GUI 界面 ,为 方便 读者 操作 ,准备 了 一 些 测试 
数据 , 见 北京 航空 航天 大 学 出 版 社 网 站 或 MATLAB 中 文 论 坛 相关 在 线 交 流 版 块 。train 是 训 
练 样本 (判别 准备 前 用 的 ) ;test 是 测试 样本 , 即 新 数据 ,用 来 判别 新 样本 中 每 一 个 属于 哪 一 类 
的 。 这 里 给 的 例子 属性 个 数 " 王 3, 实 际 使 用 时 ,二 可 以 不 局 限于 3。 训 练 样本 只 要 按照 附件 中 
的 格式 ( 即 第 一 列 为 类 名 ,其余 列 为 属性 ) 存 为 扩展 名 为 . xls 文件 即 可 。 测 试 样本 是 直接 由 属 
性 列 组 成 的 ,每 一 行 表 示 一 个 样本 。 源 代码 如 下 : 


fanction DiscriminantMethods 
fig = figure('defaultuicontrolunits' nornalized', nane', 判 别 方法 比较 . 
权 'numbertitle'off''menubar', none)ig% 主 界面 ,返回 主 界面 句柄 fig 、 
UiButtonGroupH = uibuttongroup( Position',[0.55 0.08 0.40 0.85]， RN 
呈 别 方法 ,fontsize',12, fontname' ,隶书 units'，, normalized ， 





"backgroundcolor',[0.9 0.8 0.7]，bordert bordertype' etchedin'... SR 光 
"ForegroundColor',[1 0 0],'ShadowColor',[O1T 1])， 本 全 二 人 
Re uicontrol( Style'，Radio '， 'String' ,距离 判别 法 '， 'fontsize',12，. . 
pos',[0.05 0.73 0.9 0.15]， "backgroundcolor ',[0.9 0.8 和 
"parent ',UiButtonGroupH); % 距离 判别 法 的 选项 
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运行 上 面 代码 得 到 如 图 9. 1 所 示 界 面 。 





图 9.1 距离 判别 和 Bayes 判别 界面 


9.2.3 判别 方法 GUI 应 用 举例 


上 述 GUI 可 以 用 来 实现 分 类 ,操作 很 简单 ,读者 可 以 根据 提示 自己 进行 操作 。 本 书 免 费 
附 赠 的 源 文件 中 的 train. xls 和 test' xls 分 别 是 训练 模型 和 测试 模型 文件 。train 文件 里 面 的 
每 一 行 表示 一 个 样本 ,其 中 第 一 列 是 所 属 类 名 。 关 于 类 名 并 无 特别 的 格式 要 求 , 只 是 要 求 其 为 
字符 形式 ,并 且 属 于 同一 类 的 名 称 必 须要 一 致 

采用 Bayes 判别 法 对 test 中 的 数据 进行 判别 后 ,会 生成 一 个 Excel 结果 文档 。 根 据 结果 
文档 中 划分 的 类 别 归属 将 test 文件 中 的 数据 和 train 文件 中 的 数据 合并 到 一 起 ,如 图 9. 2 
所 示 。 


< 

口 ”class1 训 练 数据 
class2 训 练 数据 
class3 训 练 数据 
判 为 class1 的 测试 数据 
判 为 class2 的 测试 数据 
判 为 class3 的 测试 数据 

机 一 








第 二 列 0 


第 一 列 
图 9.2 训练 样本 和 Bayes 判别 法 判别 后 的 测试 样本 
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从 图 9. 2 可 以 看 出 ,Bayes 判别 法 对 测试 数据 进行 了 准确 的 判别 。 读 者 也 可 以 按照 train 
文件 和 test 文件 格式 自行 准备 训练 样本 和 测试 样本 ,每 个 样本 的 属性 不 局 限于 3, 并 且 类 的 名 
称 可 以 随意 ,只 要 是 字符 型 并 且 同一 类 的 名 称 唯一 即 可 。 


9.3 业 例 18: 支持 向 量 机 的 应 用 


9.3.1 概 述 


支持 向 量 机 (Support Vector Machine,SVM) 是 Vapnik 教授 等 人 在 多 年 研究 统计 学 理论 
基础 上 提出 的 一 种 用 于 解决 线性 不 可 分 这 样 的 分 类 问题 的 理论 。 支持 向 量 机 的 基本 思想 是 : 
定义 最 优 线性 超 平面 ,并 把 寻找 最 优 线性 超 平面 的 算法 归结 为 求解 一 个 凸 规划 问题 。 进而 基 
于 Mercer 核 展开 定理 ,通过 构造 一 个 非 线性 映射 9, 把 样本 空间 映射 到 一 个 高 维 帮 至 无 穷 维 
的 特征 空间 ,使 之 在 特征 空间 中 可 以 应 用 线性 学 习 机 的 方法 解决 样本 空间 中 的 高 度 非 线性 分 
类 和 回归 等 问题 。 

支持 向 量 机 方法 是 一 种 具有 严密 理论 基础 的 计算 机 学 习 的 新 方法 , 它 已 经 成 为 计算 机 学 
习 、 模 式 识别 .计算 智能 、 预 测 预报 等 领域 的 热点 技术 ,在 国内 外 受到 广泛 关注 。 本 案例 将 简要 
介绍 支持 向 量 机 理论 .MATLAB 自 带 的 有 关 支 持 向 量 机 的 函数 以 及 展示 支持 向 量 机 的 一 些 
应 用 案例 。 


9.3.2 支持 向 量 机 介绍 


1. 两 分 类 支持 向 量 机 
这 里 介绍 本 案例 用 到 的 两 分 类 支持 向 量 机 , 即 C -支持 向 量 机 ,具体 形式 如 下 ， 
1) 设 已 知 训练 集 : 

了 一 {(Co (xy E(XXY) 

其 中 ,EX 一 R ,wyEY 一 {1, 一 1}(i 一 1,2，…y20); xi 为 特征 向 量 。 

2) 选取 适当 的 核 函 数 KCx,x 7 和 适当 的 参数 C, 构 造 并 求解 最 优化 问题 

min 二 交 > yiyiaajK (xi Ji) 一 >)w 

e i=1 j=1 j=1 

本名 yai 一 0， 


0 入 vi 委 C， i 一 1，…,/ 











得 最 优 解 :a" 一 (ar ,ar DT。 
3) 选取 ce" 的 一 个 正 分量 0 一 o; 一 C, 并 据 此 计算 阔 值 ， 


刀 一 基 一 yor 玖 Cn) 
1m1 
4) 构造 决策 函数 
下 
JrGx) 一 sgn( >yar yiKCryzi) 十 ) 


2. 多 分 类 支持 向 量 机 
直接 应 用 上 面 的 两 分 类 支持 向 量 机 只 能 解决 两 分 类 问题 ,现实 中 面临 的 很 多 问题 都 是 多 
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分 类 问题 ,这 时 为 了 解决 多 分 类 问题 就 需要 构造 一 系列 的 两 分 类 支持 向 量 机 。 这 里 将 要 介绍 
两 种 构造 一 系列 两 分 类 支持 向 量 机 的 方法 。 
设 已 知 训练 集 : 





T 一 {(xzyyi)，… (zyy))E(XXY7) 
其 中 : 
iEX 一 R， YEY 一 (1,2, Mi 一 1,2，…, 7 
首先 对 所 有 的 
GJD)E{(GJ1i<71iJ 一 1,2,…,M) 


训练 集 Ti-， 。 用 求解 两 类 分 类 问题 的 支持 向 量 机 求 得 实 值 函 数 &  (z) 和 判定 zxEX 属于 第 ; 
类 或 第 7 类 的 分 类 机 : 
二“ 人 >0 
J， 其 他 

然后 在 需要 对 给 定 的 一 个 测试 输入 x 推断 它 属 于 M 类 中 的 第 几 类 时 ,考虑 上 述 所 有 的 分 
类 机 对 x 所 属 类 别 的 意见 :一 个 分 类 机 判定 x 属于 第 ;类 就 意味 着 第 ; 类 获得 一 票 。 得 票数 
最 多 的 类 别 就 是 最 终 判 定 x 所 属 的 类 别 。 

另外 一 种 方法 是 一 类 对 余 类 构造 支持 向 量 机 的 方法 。 对 于 训练 集 : 

T 一 (Go E(XXY) 


7(Cx) 一 


其 中 ， 
E 和 一 R， yiEY 一 (1 M)， 一 1 
在 训练 支持 向 量 机 时 ,可 以 将 所 有 yw 相等 的 归 为 一 类 ,竹下 的 归 为 一 类 ,这 样 训练 好 的 支 
持 向 量 机 就 可 以 识别 w 类 了 。 按 照 上 述 方法 一 共 可 以 构造 M 个 支持 向 量 机 ,其 中 每 个 支持 
向 量 机 负责 识别 相应 的 第 w 类 。 


9.3.3 MATLAB 所 依据 的 支持 向 量 机 模型 


MATLAB 2008a 中 和 支持 向 量 机 分 类 有 关 的 函数 主要 是 svmtrain 和 svmclassify, 前 者 
用 于 训练 支持 向 量 机 ,后 者 用 训练 好 的 支持 向 量 机 来 分 类 。 最 关键 的 是 svmtrain 函数 ,其 不 
同 的 参数 输入 直接 决定 了 最 终生 成 的 支持 向 量 机 的 结构 。 下 面 介绍 svmtrain 函数 的 结构 。 

1. symtrain 函数 结构 

svmtrain 函数 所 依据 的 是 如 下 C -支持 向 量 机 的 变形 。 

1) 设 已 知 训练 集 : 

了 一 { 人 (Go yyi)，(xay yz) (xy )) GE(X 关 了 7) 

其 中 , 心 EX 一 RoyE{tl, 一 1)(Gi 一 1,2， 7) 
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2) 选取 适当 的 核 函 数 K(Cz,z') 和 适当 的 参数 C, 构 造 并 求解 最 优化 问题 
min 壮 yoi(KCnz)+E) 一 w 人 9-6) 
三 
饼 训 yiai 一 0 
和 


wu0， 认 1,2,……, 


进行 下 列 运算 :在 训练 集中 抽取 所 有 > 一 和 ?一 7 的 样本 点 。 基 于 这 些 样 本 点 组 成 一 个 
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其 中 : 


得 最 优 解 e" 一 (af ,ar )T; 
3) 选取 c"” 的 一 个 正 分 量 w >0, 并 据 此 计算 阔 值 ; 


全 =y(1 一 全 )- 补 yerkcova) 


4) 构造 决策 函数 : Fr) = sgn( > aryiKCrz) 十 六 ) 


2. symtrain 函数 所 支持 的 核 函数 类 型 

关于 核 函 数 (xz,x'),svmtrain 函数 中 可 以 设 定 的 核 函 数 分 为 现 有 的 核 函数 和 用 户 自己 
定义 的 核 函 数 两 大 类 。 现 有 的 核 函 数 有 线性 核 函 数 (Linear kernel)、 二 次 核 函 数 (Quadratic 
kernel) ,高 斯 径 向 基 核 函数 (RBF kernel) \ 多 项 式 核 函 数 (Polynomial kernel) 和 多 层 感 知 器 核 
函数 (Multilayer Perceptron kernel) 。 

用 户 也 可 以 自 定义 核 函 数 ,提前 写 好 核 函 数 文件 ,将 其 函数 句柄 传人 svmtrain 函数 即 可 。 

在 案例 中 , 核 函数 选取 的 是 二 次 多 项 式 核 函 数 , 具 体形 式 为 ， 

开 (Cueym) 一 (xu )C 十 xu) 

上 面 所 列 的 核 函 数 的 函数 文件 可 以 在 matlabroot\toolboxNbioinfo\biolearning\private 目 
录 下 找到 。 

问题 (9 - 6) 是 一 个 二 次 规划 问题 。svmtrain 函数 根据 输入 参数 的 不 同 可 以 用 以 下 三 种 方 
式 求解 。 

1) 二 次 规划 (Quadratic Programming) 这 个 需要 用 户 安装 优化 工具 箱 。 如 果 用 户 安装 了 
优化 工具 箱 , 那 么 默认 的 求解 问题 (9 - 6) 就 是 该 方法 , 即 调用 quadprog 函数 。 

2) 序列 最 小 最 优化 (Sequential Minimal Optimization) 。 该 方法 适合 于 求解 大 型 问题 , 同 
时 用 户 未 装 优化 工具 箱 时 是 默认 的 方法 。 

3) 最 小 二 乘法 (Least - Squares) 。 


9.3.4 支持 向 量 机 实现 图 像 分 齐 


如 图 9. 3 所 示 , 蓝 色 的 湖面 上 一 只 黄色 的 小 鸭子 在 捕食 昆虫 ,该 图 片 文 件 名 为 littleduck. jpg, 利 
用 支持 向 量 机 ,将 小 鸭子 从 背景 中 分 割 出 来 。 





图 9.3 示例 图 像 
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利用 支持 向 量 机 分 类 ,首先 需要 找到 区 分 不 同 像素 点 的 特征 。 由 于 这 幅 图 片 的 颜色 对 比 


鲜明 ,因此 可 以 选取 像素 点 的 RGB 值 作为 特征 。 偏 黄色 的 点 作为 鸭子 的 特征 点 , 偏 蓝 色 的 点 
作为 湖水 的 特征 点 ,另外 考虑 到 鸭子 的 眼睛 是 黑色 的 ,因此 也 可 以 适当 选取 一 两 个 黑色 的 像素 
点 作为 鸭子 的 特征 。 


下 面 代码 展示 了 读 取 图 像 ,训练 支持 向 量 机 并 分 割 图 像 的 一 系列 过 程 ， 


function DuckLakeSegmentation 

外 导 人 图 像 文 件 引导 对 话 框 

[filename,pathnamevflag] = uigetfileC'* . jpg', 请 导入 图 像 文 件 )， 

Duck = imread([pathname,filename]); 

LakeTrainData=[52 74 87;76 117 150;19 48 62;3510 64 82;46 58 361... 
50 57 .23;4110 127 135;156 ,173 1891246 242 232;. .. 
166 174 151];# 从 图 上 选取 的 几 个 位 于 湖面 区 域 的 有 代表 的 点 的 RGB 值 

外 从 图 上 选取 的 几 个 位 于 鸭子 区 域 的 有 代表 的 点 的 RGB 值 

DuckTrainpata = [211 192 ”107;202 193 164;32 ”25 01213 201 151;115 75 16).. 
101 70 0;169 131 22;150 133 87]， 

$ 属于 湖 的 点 为 0, 鸭子 为 1 

group = [zeros(size(LakeTrainData,1) ,1) ;ones(size(DuckTrainData,1),I)]; 

LakeDuckSVM = svmtrain([LakeTrainDatatDuckTrainData],group,.. . 
"Kernel_Function'， polynomial',' Polyorder',2);g% 训练 得 到 支持 向 量 分 类 机 

[nm,n,k] = size(Duck); 

Duckl = double(reshape(Duck, mx n, k))3g% 将 数组 Duck 转 成 mxn 行 ,3 列 的 双 精 度 矩阵 

当 根据 训练 得 到 的 支持 向 量 机 对 整个 图 像 的 像素 点 分 类 

IndDuck = svmclassify(LakeDuckSVM,Duckl)3 

IndLake = 一 IndDuck; #% 属于 湖 的 点 的 逻辑 数组 

result = reshape([IndLake，IndLake，IndLake],[m,n,k]); #% 和 图 片 的 维 数 相对 应 

Duck2 = Duck; 

Duck2(result) = 0 


运行 上 述 代码 首先 出 现 如 图 9. 4 所 示 的 对 话 框 。 
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图 9%.4 导入 图 像 对话 框 
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选中 图 片 littleduck. jpg 后 ,程序 即 读 取 图 像 数据 ,并 根据 设置 的 训练 点 训练 支持 向 量 机 ， 
训练 好 的 支持 向 量 机 为 LakeDuckSVM., 它 会 把 属于 湖面 区 域 的 点 归 为 “0 这 一 类 ,属于 鸭子 
区 域 的 点 归 为 “1 这 一 类 。 接 着 svmclassify 函数 完成 对 图 像 剩 余 像 素 点 的 分 类 工作 ,通过 逻 
辑 数组 result 将 原始 图 像 数 组 中 属于 湖面 的 像素 点 的 灰 度 值 设 置 为 0, 此 时 背景 成 了 黑色 ,而 
鸭子 区 域 的 图 像 保 持原 样 , 这 样 就 可 以 清楚 地 看 到 图 像 分 割 的 效果 ( 见 图 9. 5) 。 

需要 说 明 的 是 ,选取 训练 点 时 有 一 个 技巧 ,就 是 刚 开 始 先 选取 比较 少 的 有 代表 性 的 几 个 点 作 
为 训练 点 ,比如 在 鸭子 区 域 选取 几 个 有 代表 性 的 点 ,把 它们 的 RGB 值 作为 鸭子 的 训练 样本 ,类 似 
的 操作 可 以 得 到 湖面 区 域 的 训练 样本 。 查 看 图 片上 某 点 的 RGB 值 时 可 以 利用 图 片 RGB 提取 工 
具 。 这 种 绿色 免费 的 软件 在 互联 网 上 有 很 多 ,如 ColorPix 小 工具 。ColorPix 是 ColorSchemer 公 
司 出 品 的 一 款 绿色 、 免 费 小 软件 ,整个 程序 只 需要 一 个 EXE 可 执行 文件 ,操作 非常 方便 。 

最 初 选取 的 训练 点 可 能 导致 图 片 分 割 得 不 是 很 好 ,例如 鸭子 后 面 溅 起 的 水 花 被 分 割 成 鸭 
子 区 域 了 ,这 时 候 可 以 对 错 分 的 水 花 区 域 添 加 一 两 个 典型 点 到 湖面 区 域 。 一 般 尝 试 几 次 后 就 
可 以 完全 将 鸭子 图 像 从 整个 图 像 中 分 割 出 来 。 利 用 DuckLakeSegmentation 程序 中 的 那些 训 
练 点 就 可 以 达到 图 9. 5 所 示 的 分 割 效果 。 





图 9.5 分 割 出 鸭子 的 图 像 


9.3.5 支持 向 量 机 实现 手写 体 数字 识别 


手写 体 数 字 的 识别 在 社会 经 济 生活 的 许多 方面 都 有 着 广泛 的 应 用 。 其 识别 方法 也 有 许多 
种 ,如 神经 网 络 方法 .Bayes 判别 方法 等 。 本 案例 将 介绍 支持 向 量 机 方法 用 于 手写 体 数字 的 识别 。 

1. 训练 支持 向 量 机 

本 案例 共 选 取 50 幅 手写 体 数 字 图 片 作为 训练 样本 ,每 个 数字 均 有 5 幅 图 片 ,50 幅 图 片 合 
在 一 起 ,如 图 9. 6 所 示 。 


0000011111| 
2222a33333 
4 清水 咎 中 55555 
660666677777 
565548839979439 


图 9.6 训练 样本 图 片 
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初始 训练 图 片 中 每 个 字符 区 域 大 小 不 一 ,而 且 不 是 二 值 图 像 , 需 要 进行 标准 化 操作 , 即 对 
每 幅 图 片 进行 反 色 后 二 值 化 处 理 , 并 截取 包含 完整 数字 的 最 小 区 域 , 并 将 该 区 域 转化 成 标准 的 
16 久 16 像素 大 小 的 图 像 。 转 化 后 的 图 像 是 黑 底 白字 的 图 ,图 中 数字 区 域 像素 值 为 1, 背 景区 域 
为 0。 例 如 对 于 第 五 个 训练 图 像 “8”, 原 始 图 像 以 及 反 色 图 像 .二 值 化 后 图 像 .选取 包含 完整 
“8" 的 最 小 区 域 图 像 以 及 转化 成 16X16 像素 大 小 的 图 像 ,如 图 9. 7 所 示 。 所 有 的 训练 图 像 标 
准 化 后 ,就 可 以 构造 并 训练 得 到 一 系列 支持 向 量 机 ,这 里 采用 9. 3. 2 节 介 绍 的 第 一 种 方法 构造 
支持 向 量 机 ,来 依次 完成 0 一 9 这 10 个 数字 的 识别 。 


图 9.7 图 片 标准 化 处 理 示例 
训练 图 片 标准 化 并 构造 .训练 支持 向 量 机 的 代码 如 下 : 


可 2 
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您 
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此 
书 
内 
容 
有 
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何 
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问 
可 
以 
凭 
在 
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流 
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论 
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者 
交 
流 
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2. 测试 支持 向 量 机 识别 能 力 
另外 选取 30 幅 手写 体 数字 图 片 作为 测试 样本 ,每 个 数字 对 应 三 幅 测试 图 片 , 每 幅 图 片 大 小 
均 为 50X 50 像素 ,文件 名 依次 为 num0_1. bmp,num0_2. bmp,num0_3. bmp,…,num9_3. bmp。 


30 幅 图 片 如 图 9. 8 所 示 。 | 
0123456782 
是 区 生 ， 2 了 8 
0OJ23456789 


图 9.8 测试 图 片 示例 


在 应 用 支持 向 量 机 对 测试 图 像 进行 识别 的 时 候 ,也 要 对 其 进行 标准 化 处 理 ,处 理 方法 同 训 
练 图 片 的 处 理 方法 相同 。 测 试 支持 向 量 机 识别 数字 的 代码 如 下 ， 
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运行 从 StdPictureAndGenerateSVM 函数 得 到 训练 好 的 SVM, 然 后 再 运行 SvmNumTI- 
dentify 函数 ,根据 提示 选择 要 测试 的 30 个 图 像 ,结果 如 下 : 





result 是 识别 出 的 结果 ,TrueNum 是 真实 的 结果 。 可 见 总 共有 三 个 图 片 出 现 了 误 判 :一 
个 是 “6” 被 误 判 成 <5”, 还 有 一 个 “8” 被 误 判 成 <“7”, 一 个 “8” 被 误 判 成 <5”。 在 每 个 数字 只 有 五 个 
训练 样本 情况 下 ,这 样 的 判别 效果 还 是 可 以 接受 的 。 读 者 在 其 他 领域 应 用 支持 向 量 机 解决 分 
类 问题 时 ,可 以 尝试 保证 足够 的 训练 样本 个 数 ,以 降低 误 判 比 例 。 注 意 一 个 原则 :训练 样本 比 
较 少时 ,不 要 采用 复杂 的 核 函 数 ;采用 多 项 式 核 函 数 时 ,多 项 式 的 阶 次 不 宜 过 高 。 
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10.1 娄 例 19: 常 微分 方程 (组 ) 解 析 求 解 业 例 


10.1.1 概 述 


一 些 形式 不 是 特别 复杂 的 微分 方程 (组 ) 可 以 求 得 其 解析 解 ,对 于 这 类 微分 方程 (组 ) ,可 以 
利用 MATLAB 提供 的 符号 计算 函数 dsolve 很 方便 的 求解 。 一 般 来 说 ,相对 于 数值 求解 微分 
方程 的 一 系列 本 数 , dsolve 函数 调用 格式 要 简洁 、 容 易 得 多 ,这 也 是 一 些 初学 者 喜欢 使 用 
dsolve 函数 求解 微分 方程 的 原因 之 一 。 

MATLAB 从 R2008b 版 本 开始 采用 Mupad 的 符号 计算 内 核 , 因 此 R2008b 之 前 版 本 的 
dsolve 函数 和 之 后 版 本 的 dsolve 函数 在 语法 上 以 及 返回 结果 上 有 些 差 异 一 般 来 说 ,这 些 差 
异 并 不 影响 用 户 使 用 ,但 在 有 些 时 候 需 要 注意 。 


10.1.2 dsolve 函数 


1，R2008b 之 前 的 dsolve 函数 

MATLAB R2008a 是 MATLAB 采用 Maple 符号 计算 内 核 的 最 后 一 个 版 本 ,我 们 以 这 个 
版 本 的 dsolve 函数 为 例 介绍 R2008b 的 dsolve 函数 的 用 法 。 该 版 本 的 dsolve 函数 的 语法 规 
则 如 下 ， 


工 = dsolveC eqlyeq2，. .condlycond2,， .ov) 
F= dsolve( eql '，eq2'..: ,condl'' cond2 .vv 


z 为 求解 得 到 的 输出 结果 ,eql 和 eq2 等 是 求解 的 徽 分 方程 表达 式 , 微 分 方程 表达 式 中 自 
变量 (以 * 为 例 ) 的 阶 导数 9 可 以 用 Dnf 来 表示 ,类 似 的 ,9& 可 以 用 Dng 来 表示 ,等 等 。 边 


界 条 件 或 者 初 值 条 件 等 一 些微 分 方程 的 定 解 条 件 由 condl ,cond2 等 给 出 。Y 为 方程 的 自 变 
最, 默认 的 自 变量 是 t。 

在 使 用 上 述 dsolve 函数 的 第 二 种 调用 格式 时 ,需要 注意 输入 变量 的 个 数 不 要 超过 12 个 。 
也 就 是 说 所 有 的 方程 ` 定 解 条 件 以 及 自 变 量 总 和 不 要 超过 12 个 。 

2，R2008b 以 及 以 后 版 本 的 dsolve 函数 

R2008b 之 后 版 本 的 dsolve 函数 除了 支持 上 述 两 种 调用 格式 外 ,还 多 了 一 个 IgnoreAna- 
lyticConstraints 设置 项 ,其 调用 格式 如 下 : 


daolvec ea ea2 condl mcond2 Twin Inorehna 
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其 中 IgnoreAnalyticConstraints 参数 项 的 字面 意思 是 “忽略 分 析 上 的 约束 ”, 这 是 出 于 一 


| 些 求 解 结果 在 一 般 性 上 的 考虑 。 例 如 表达 式 Ine* ,通常 我 们 认为 其 等 于 z, 这 是 基于 默认 zx 为 


实数 情况 下 得 出 的 结论 。 如 果 z 一 2ri, 则 lnezs 一 In1 一 0 而 不 是 等 于 2xi。 上 述 IgnoreAnalyt- 


icConstraints 有 两 个 设置 值 可 供 选 择 :all 和 none。 默 认 情 况 下 为 all, 这 个 时 候 意 味 着 不 对 所 


求 结果 进行 一 般 意义 上 的 推广 ， 所 以 解 出 来 的 解 可 能 在 最 一 般 意 义 条 件 下 会 不 成 立 ， 但 还 是 会 
满足 原始 微分 方程 以 及 定 解 条 件 。 而 如 果 选 择 none,dsolve 返回 的 解 (前 提 是 能 够 求 得 解析 
解 ) 在 最 一 般 意 义 下 也 会 成 立 , 但 是 会 增加 求 不 出 统一 的 解析 表达 式 的 概率 。 

下 面 来 看 用 dsolve 函数 求解 微分 方程 的 一 些 实例 。 


10.1.3 dsolve 函数 求解 实例 


【 例 10.1-1 求 莞 =y, 呈 一 一 z 的 解 。 本 例 的 目的 是 介绍 dsolve 丽 数 最 简单 的 调用 格 
式 。 其 在 MATLAB 2009a 版 本 下 的 求解 代码 如 下 ; 





如 果 在 2008a 版 本 下 ,相应 的 结果 如 下 : 





上 述 结果 中 的 C1 和 C2 都 是 任意 常数 。 从 以 上 结果 可 以 看 出 ,在 2009a 和 2008a 版 本 下 
求 得 的 结果 形式 还 是 有 一 些 差异 的 。 虽 然 求 解 结果 一 样 ， 俱 业 形式 的 关 蝇 全 再 了 Mupad 和 
Maple 两 个 不 同 符号 计算 引擎 的 差异 。 

【 例 10.1-2] 画图 展示 微分 方程 ?一 zy 一 (3 六 的 通 解 和 奇异 解 的 关系 。 通 过 本 例 ， 
读者 将 看 到 :R2008a 和 R2009a 下 dsolve 求解 的 异同 ;未 指定 独立 变量 时 的 求解 结果 ;如 何 将 
符号 结果 转化 成 数值 表达 式 ; 一 些 绘图 指令 的 应 用 。 ” 
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以 下 代码 基于 MATLAB R2009a 版 本 。 









得 到 的 图 形 如 图 10. 1 所 示 。 
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图 10.1 通 解 和 奇异 解 曲 线 
5 合 ， 注意 ”如 果 不 指定 独立 刘 量 为 z,MATLAB 还 会 认为 默认 变量 为 2 这样 得 出 的 角 


如 下 : 有 下 写生 二 
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上 述 代码 是 基于 MATLAB 2009a 版 本 的 ,如 果 在 MATLAB 2008a 版 本 下 ,直接 运行， 









会 报错 ,这 时 候 需 要 写成 "导数 在 前 函数 在 后 ,导数 阶 数 降 阶 "的 形式 , 即 下 述 表达 式 ， 





运行 结果 如 下 ，” 轴 





剩 下 的 画图 等 操作 可 以 参考 上 述 MATLAB 2009a 版 本 下 的 代码 。 
【 例 10.1-3】1 求解 微分 方程 只 一 1 十 22 (0) 一 1。 外侧 于 信 3UgndtsAmaiyteCon 


straints” 设 置 项 的 用 法 。 
由 于 MATLAB 2008a 版 本 没有 * 90 机 这 一 设置 项 , 先 来 看 看 在 
MATLAB R2008a | 的 结果 : 





在 MATLAB R2009a 版 本 下 ,求解 的 结果 


* 菌 疝 放 这 业 重 由 几 二 9VTIVN 光 岩 订 小 党 禾 诗 沪 天 二。 西关 言 永 寺 办 瑟 东 玫 部 障 订 





可 见 ,默认 得 到 的 结果 和 MATLAB R2008a 版 本 下 是 一 致 的 。 在 MATLAB R2009a 版 
本 下 ,“IgnoreAnalyticConstraints” 这 一 设置 项 的 值 默认 是 all。 也 就 是 说 ,得 到 的 表达 式 并 不 
是 严格 数学 意义 上 的 最 一 般 的 表达 式 , 如 果 将 其 值 改 为 none, 将 得 到 如 下 结果 ; 
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上 述 结果 是 数学 意义 上 严格 条 件 下 微分 方程 的 通 解 。 





【 例 10.1-4】 求解 两 点 边 值 问题 :zy 一 3y 一 好 ,y(1)=0,y(5) 一 0。 前 面 都 是 微分 方 
程 初 值 问 题 的 例子 ,本 例 介 绍 dsolve 求 解 边 值 问题 。 继 续 介 绍 符号 表达 式 如 何 可 视 化 。 


以 下 代码 基于 MATLAB R2009a 版 本 : 


>>Y= dsolveCx*#D2Y-3xDY=x2，Y(G)=0,Y(5)=0x) 
Y= 
(31#x4)/468 - x3/3 + 125/1468 
s# 用 另 一 种 方法 将 符号 表达 式 转化 成 匿名 函数 ,读者 可 以 对 照例 10.1- 2 中 的 方法 
>> eval([ f = @(x) vectorize(char(Y))]) 
下 = 
加 @(x)(31. * x. 4)./1468 - x.”3./3+ 125. /468 
>> x=-1:0.2:6; 
>> LineH = plot(x,f(x));# 画 微分 方程 解 曲 线 ， 返回 曲线 句柄 LineH 
% 通 过 曲线 的 句柄 设置 曲线 的 一 些 属性 值 
>> set(LineH,，color',[0 1 1],Linewidth' 3, Linestyle'--) 
>>holdon 
>> plot([I 5],[0,0]，*'" color'r''markersize',12) 名 画 微 分 方程 的 两 个 边 值 点 
>> text(1,1,，Y(1) = 07% 图 上 标注 边 值 条 件 
>> text(4,1,"Y(5) =07) 
>> title([ xx* D27-3x*DY=x2'，YG1)=0;Y(G5)=09]) 
>> hold off 


运行 上 述 代码 得 到 的 图 形 如 图 10. 2 所 示 。 
MD SO 下 x2, y(D = 0y(5) = 0 
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图 10.2 ”两 点 边 值 问题 的 解 曲线 


10.2 数值 吉 解 常 微 分 方程 另 数 


10.2.1 概 述 
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在 10. 1 节 , 介 绍 了 符号 求解 各 类 型 的 微分 方程 (组 ) ,但 是 能 够 求 得 解析 解 的 微分 方程 往 


往 只 是 出 现在 大 学 课堂 上 ,在 实际 应 用 中 * 绝 大 多 数 微分 方程 (组 ) 无 法 求 得 解析 解 。 这 就 需要 
利用 数值 方法 求解 。MATLAB 以 数值 计算 见长 ,提供 了 一 系列 数值 求解 微分 方程 的 函数 。 


[1 MATLAB 高 效 编程 技巧 与 应 用 ; 25 个 案例 分 析 





* 旷 凋 冰 并 灿 六 直上 二 SGVTIVIN 郊 齿 林 沪 赃 演 计 六 关 本。 西 澳 言 本 堵 兰 也 亲 于 尝 院 让 





目 





二 
WwW-. 礼 ye 人 Marlab cn 


这 些 函数 可 以 求解 非 刚性 问题 ` 刚 性 问题 、 隐 式微 分 方程 \ 微 分 代数 方程 等 初 值 问题 ,也 可 
以 求解 延迟 微分 方程 以 及 边 值 问题 等 。 本 节 对 这 些 函 数 做 一 些 简 单 介绍 ,10: 3 节 开 始 以 案例 
形式 介绍 上 述 各 类 型 微分 方程 的 求解 方法 。 


10.2.2 初 值 问题 求解 函数 


MATLAB R2009a 提供 了 以 下 函数 用 于 各 种 初 值 问题 求解 : ode23，ode45，odel13， 
odel5s，ode23s，ode23t，ode23tb。 这 些 函 数 的 统一 调用 格式 如 下 : 


[mr, 呆 = solver(odefunytspanvy0) 和 
[T,Y] = solver(odefun,tspan,y0,options) 
sol = solver(odefun,[t0 tf],y0...) 


输入 参数 说 明 : 

odefun: 表 示 微 分 方程 (组 ) 的 句柄 ,本 书后 面 章 节 将 会 给 出 使 用 范例 。 

tspan: 微 分 方程 (组 ) 的 求解 时 间 区 间 , 有 两 种 格式 [t0,tf] 或 者 [to0,tl,…，t, 两 者 都 以 t0 
为 初 值 点 ,根据 匡 自动 选择 积分 步 长 。 前 者 返回 实际 求解 过 程 中 所 有 求解 的 时 间 点 上 的 解 ， 
而 后 者 只 返回 设 定 的 时 间 点 上 的 解 。 后 者 对 计算 效率 没有 太 大 影响 ,但 是 求解 大 型 问题 时 ,可 
以 减少 内 存 存 储 。 

y0: 是 微分 方程 (组 ) 的 初 值 , 即 所 有 状态 变量 在 t0 时 刻 的 值 。 

options :结构 体 , 通 过 odeset 设置 得 到 的 微分 优化 参数 ,是 一 个 结构 体 数 组 。 

返回 参数 说 明 : 

T: 时 间 点 组 成 的 列 向 量 。 

立 :微分 方程 (组 ) 的 解 矩 阵 , 每 一 行 所 对 应 的 相应 T 在 该 行 上 时 间 点 的 微分 方程 (组 ) 的 解 。 

sol: 以 结构 体 的 形式 返回 解 。 

各 函数 介绍 见 表 10 - 1。 


表 10-1 微分 方程 初 值 问题 解 算 器 





说 明 
采用 算法 为 4- 5 阶 Runge-Kutta 法 ,是 大 多 数 情况 下 首选 的 函数 
基于 Bogacki-Shampine 2-3 阶 Runge-Kutta 公式 ,在 精度 要 求 不 高 的 场合 ,以 
































稀 风 人 低 。 ”| 及 对 于 轻 度 刚性 方程 ,ode23 的 效率 可 能 好 于 ode45 
| 基于 变 阶 次 Adams-Bashforth-Moutlon PECE 算法 。 在 对 误差 要 求 严 格 的 场 
提交 性 “| ， 攻 到 高 “| 合 或 者 输入 参数 odefun 代表 的 函数 本 身 计算 量 很 大 情况 下 比 ode45 效率 高 。 


odel13 可 以 看 成 一 个 多 步 解 算 器 ,因为 它 会 利用 前 几 次 时 间 节 点 上 的 解 计算 
当前 时 间 节 点 的 解 。 因 此 它 不 适应 于 非 连续 系统 

基于 数值 差分 公式 (后 向 差分 公式 ,BDFs 也 叫 Gear 方法 ), 因 此 效率 不 是 很 
高 。 同 odel13 一 样 ,odel5s 也 是 一 个 多 步 计算 器 。 当 ode45 求解 失败 ,或 者 非 
常 慢 ,并 且 怀 蜂 问 题 是 刚性 的 ,或 者 求解 微分 代数 问题 时 可 以 考虑 用 ode15s 
基于 修正 的 二 阶 Rosenbrock 公式 。 由 于 是 单 步 解 算 器 , 当 精度 要 求 不 高 时 , 它 
的 效率 可 能 会 高 于 odel5s。ode 23s 可 以 解决 一 些 odel5s 求解 起 来 效率 不 太 
高 的 刚性 问题 


ode23t 可 以 用 来 求解 微分 代数 方程 


当 方程 是 刚性 的 ,并 且 求 解 要求 精 度 不 高 时 可 以 使 用 
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关于 各 函数 优化 选项 option 的 参数 设置 ,读者 可 以 参考 帮助 文档 ,这 里 限于 篇 幅 不 再 
详 述 。 
10.2.3 延迟 问题 以 及 按 值 问题 求解 函数 


对 于 延迟 问题 的 求解 ,MATLAB 提供 了 dde23 和 ddesd 函数 。 前 者 用 来 求解 状态 变量 延 
迟 为 常数 的 微分 方程 (组 ), 后 者 用 来 求解 状态 变量 延迟 不 为 常数 的 微分 方程 (组 )。 调用 格式 
以 及 参数 意义 大 部 分 类 似 于 ode 系列 求解 函数 ,不 同 的 是 要 输入 延迟 参数 以 及 系统 在 时 间 小 
于 初 值 时 的 状态 函数 ,详细 格式 可 以 参考 帮助 文档 。 

对 于 边 值 问题 的 求解 ,MATLAB 提供 了 两 个 求解 函数 bvp4c 和 bvp5c, 后 者 求解 精度 要 
比 前 者 好 。 如 果 以 bvpsolver 表示 bvp4c 或 者 bvp5c, 那 么 这 两 个 函数 有 着 统一 的 调用 格式 ， 


solinit = bvpinit(x，yini，params) 
sol = bvpsolver(odefun,bcfun,solinit) 
Sol = bvpsolver(odefun,bcfun,solinit,options) 


输入 输出 各 参数 说 明 : 

solinit: 包 含 解 的 初始 猜测 值 的 结构 数组 ,由 bvpinit 生成 。 

x: 需 要 计算 的 按 顺 序 排列 的 初始 节点 。 类 似 于 初 值 问题 ode xx 系列 函数 输入 参数 中 的 
tspan。 对 于 [a,b] 上 的 边 值 问 题 ,x(1) 一 a,xCend) 一 b。 对 于 多 点 边 值 问题 ,如 [a,c,b],a.be 
上 都 有 边 值 限制, 那么 x 一 [a…cyc,…*b], 即 中 间 的 边 值 点 要 重复 。 在 a 和 < 之 间 ,c 和 bb 之 
间 其 他 的 点 可 有 可 无 。 

yinit: 解 的 初始 猜测 值 , 可 以 是 具体 值 ,也 可 以 是 函数 ,类 似 ode xx 的 x0。 

params: 其 他 的 未 知 参数 ,也 是 一 个 猜测 值 。 

odefun: 描 述 边 值 问题 微分 方程 的 函数 句柄 ,类似 ode xx 中 的 odefun。 

bcfun: 边 值 函 数 句柄 ,一 般 是 两 点 边 值 形 式 ,也 支持 多 点 边 值 形式 (具体 可 以 参考 帮助 文 
档 ) 。 

options: 边 值 问题 解 算 器 的 优化 参数 ,可 以 通过 bvpset 设置 (具体 参数 可 以 查看 帮助 文 
档 ) 。 

本 章 后 半 部 分 将 针对 几 种 类 型 的 微分 方程 以 案例 形式 给 出 其 求解 示例 。 


10.2.4 求解 前 的 准备 工作 


很 多 MATLAB 初学 者 都 爱 用 符号 法 求解 微分 方程 而 不 愿意 用 数值 方法 求解 微分 方程 ， 
其 主要 原因 就 在 于 ,数值 求解 的 时 候 要 把 求解 的 微分 方程 转化 成 MATLAB 数值 求解 函数 可 
以 认识 的 形式 ,这 种 转化 比 符号 求解 要 麻烦 一 些 。 

但 是 在 理解 并 明 白 转化 的 含义 后 ,掌握 转换 的 方法 并 不 难 ,而 且 各 微分 方程 数值 求解 函数 
所 接受 的 输入 形式 是 一 致 的 。 

常 微分 方程 的 形式 是 多 种 多 样 的 。 一 般 来 说 ,很 多 高 阶 微分 方程 可 以 通过 变量 替换 转化 
成 一 阶 微分 方程 组 , 即 可 以 写成 下 面 的 形式 ， 

M (ty)y 一 下 (ty) (10-1) 
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M(t,y) 被 称 为 质量 矩阵 ,如 果 其 为 非 奇异 矩阵 , 则 式 (10 - 1) 可 以 写成 
y 一 MT Cty)EFCty) (10 -2) 

将 等 式 (10 - 2) 右 半 部 分 用 odefun 表示 出 来 (具体 表现 形式 可 以 采用 匿名 函数 . 子 函 数 、 
嵌 套 函数 .单独 M 文件 等 形式 ), 就 是 ode45,ode23 等 常 微分 方程 初 值 问题 求解 的 输入 参数 
odefun。 

如 果 M(ti,y) 为 奇异 矩阵 , 则 式 (10 - 1) 称 为 微分 代数 方程 组 (differential algebraic equa- 
tions，DAEs) ,可 以 利用 求解 刚性 微分 方程 的 函数 (如 odel5s,ode23s 等 ) 来 求解 。 从 输入 形 
式 上 看 ,求解 DAEs 和 求解 普通 的 ODE 很 类 似 , 主 要 区 别 是 需要 给 微分 方程 求解 器 指定 质量 
和 矩阵 M(t,y) 。 关 于 其 原理 ,有 兴趣 的 读者 可 以 参考 文献 [23], 这 里 不 再 详 述 。 本 章 后 面部 分 
将 给 出 DAEs 的 求解 案例 。 

还 有 一 些 方程 无 法 写成 式 (10 - 1) 或 者 式 (10 - 2) 的 形式 , 即 隐 式 微分 方程 ,关于 其 解法 也 
将 在 后 面 进 行 介绍 。 


10.3 案例 20: 非 刚性 /刚性 常 微分 方程 初 值 问 题 求解 


10.3.1 概 述 


本 案例 着 重 介绍 非 刚 性 Cnonstiff)/ 刚 性 (stiff) 常 微分 方程 求解 。 刚 性 / 非 刚性 问题 最 直 
观 的 判别 方法 就 是 从 解 在 某 段 时 间 区 间 内 的 变化 来 看 。 非 刚性 问题 变化 相对 缓慢 ,而 刚性 问 
题 在 某 段 时 间 内 会 发 生 剧烈 变化 , 即 在 很 短 的 时 间 内 , 解 的 变化 巨大 。 对 于 刚性 问题 不 适合 用 
ode45 来 求解 ,如 果 非 要 用 ode45 来 求解 , 则 达到 指定 精度 所 耗费 的 时 间 往 往 会 非常 长 。 
10.3.2 非 刚 性 问题 举例 


【 例 10.3 - 1】 求 如 下 微分 方程 的 解 , 求 解 时 间 区 间 为 [0,30], 并 图 示 。 
至 -za 一 z ) 至 +z=0 





其 中 以 未 知 ,是 计算 过 程 中 生成 的 数值 。 
将 所 给 方程 转化 成 式 (10 - 2) 的 形式 ,进行 变量 填 换 , 令 %m 一 zy = 至 。 于 是 , 原 方程 可 
以 改写 成 如 下 一 阶 微分 方程 组 形式 ， 


d2 
二 -| 2 2] =- 
dy2 A(1 一 媒 )y 一 六 ya(0) 0 
d 


由 于 未 知 , 因 此 在 构造 微分 函数 的 句柄 odefun 时 需要 考虑 六 即 能 根据 生成 的 疡 实时 
得 到 与 之 对 应 的 微分 方程 ,将 求解 微分 方程 并 画图 的 一 系列 过 程 写 到 一 个 M 文件 中 ,代码 
如 下 : 
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function examplel0 3 1 
close all; 
# 利用 nested function 形式 来 表示 微分 方程 
function ydot = DYDtNestedFun(t,Y)7 
ydot = [Y(2);mox (1 一 YC1) ”2) xy(2) - Y(G1)]， 
end 
$% 利用 匿名 函数 形式 来 表示 微分 方程 
DYDthnony= @(mu)@(t,yY)[Y(2);mux (1I-Y(L1) 2) x Y(2) 一 Y(1)]; 
多 以 下 代码 对 mu = 1,2,3 分 别 求解 微分 方程 ,并 画 出 微分 方程 的 解 
tspan= [0,30];#% 时 间 区 间 
Y0=[1o0]; 
figure(1) ;hl = axesihold on; 
figure(2)391 = axesyhold on 
Colororder = get(gca, Colororder );% 默认 的 坐标 轴 曲 线 颜色 顺序 
s 曲线 类 型 顺序 ,方便 成 书 时 区 分 显示 不 同 线 
LineStyle= { 一 一 -3 
for ma=1;3 
# 利用 ode45 求解 微分 方程 (输入 微分 方程 组 是 nested furiction 形式 表示 的 ) 
[tt YY] = ode45(@DyDtNestedFun,tspan,y0) 1 
#% 在 句柄 值 为 hl 的 坐标 轴 上 根据 不 同 的 mu 画 相 应 的 解 曲 线 
plot(hl,tt,yy(:,1),，color',ColororderCmu,:)， LineStyle',LineStylefmu}); 
# 在 句柄 值 为 gl 的 坐标 轴 上 根据 不 同 的 mu 画 相应 的 平面 相 轨迹 ' 
Plot(g1,yY(:,1),YY(:,2)，color' Colororder(mu,:)， LineStyle'",LineStyle{mu) ); 
end 
xlabel(hl, t+ )5g% 在 句柄 值 为 hl 的 坐标 轴 的 x 轴 上 标注 
titleChl,，x(t)79 
legend(\mu = 1',Nmu = 2' 必 Nmu = 3");hold off 
xlabel(gl, 位 移 ')) ;ylabel(gl, 速 度 ) ;hold off 
$ 下 面 利用 ode45 求解 微分 方程 (输入 的 微分 方程 组 是 匿名 函数 形式 表示 的 ) 
figure(3)3h2 = axesihold on 
figure(4) ;9g2 = axesihold ony 
for mu=1:3 
[tt 27] = ode45(DyDthnonyCmu) ,tspanyy0); 
plot(h2,tt,yY(:,1)，color',ColorOrder(mu, :), LineStyle'",LineStylefmu}); 
Plot(g2,YY(:,1),YY(:,2)，color',ColorOrder(mu, :)， LineStyle ,LineStyle{mu)}); 
end 全 
xlabel(h2,t)3 
titleCh2，x(Ct)7 4 可 演 本、 
legend(\mu = 1 "Nmu= 2" mu = 3))yhold off 
xlabel(g2, 位 移 ) ;ylabel(g2,' 速 度 ) ;hold off 
end 





运行 上 述 代码 会 发 现 , 无 论 采用 nest function 表示 微分 方程 组 还 是 用 匿名 函数 表示 微分 
方程 组 ,都 得 到 了 一 模 一 样 的 如 图 10. 3 所 示 的 微分 方程 解 曲 线 和 如 图 10. 4 所 示 的 平面 相 轨 
迹 。 采 用 nested function 表示 微分 方程 可 以 方便 地 与 主 程序 之 间 共 享 mu 而 且 nested func- 
tion 在 主 函 数 之 内 的 位 置 也 是 随意 的 ,甚至 可 以 放 到 主 函 数 内 的 mu 出 现 之 前 。 主 函数 内 的 
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mu 生成 之 后 或 者 改变 值 之 后 调用 微分 方程 DyDtNestedFun,DyDtNestedFun 内 的 mu 也 会 
作出 改变 。 而 采用 双重 匿名 函数 来 构造 微分 方程 是 把 mu 作为 外 重 变量 传人 的 ,给 定 一 个 
muyDyDtAnony(mu) 就 会 生成 对 应 的 微分 方程 句柄 。 

xm 

















0 
位 移 


图 10.4 平面 相 轨迹 


10.3.3 刚性 问题 举例 


【 例 10.3-2]】 求解 如 下 微分 方程 组 : 


d2 
上 | fa 一 (十 1)2 十 旭 y 


dyz 8 一 旭 ya 


局 

?yz (0) 4 
二 

其 中 ,aa 一 100;0 一 50。 


这 里 也 涉及 参数 " 和 2 传递 到 微分 方程 的 问题 ,上 节 已 经 给 出 两 种 传递 参数 的 方式 。 这 
里 给 出 参数 传递 的 另 一 种 途径 , 即 在 调用 微分 方程 求解 函数 的 时 候 传递 参数 ,只 不 过 这 种 情况 
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下 ,需要 把 输入 参数 都 写 全 , 待 传递 的 参数 写 在 后 面 。 该 问题 的 求解 代码 如 下 : 
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运行 上 述 代码 得 到 如 下 结果 : 





ode45 计算 点 数 ( 子 函 数 表示 微分 方程 ) :102869; 所 用 时 间 :7.8812s. 
ede23 计算 点 数 ( 子 函 数 表示 微分 方程 ) :33968; 所 用 时 间 ;4.713s. 
， edel5s 计算 点 数 ( 子 函数 表示 微分 方程 ) :90; 所 用 时 间 :0. 041823s. 

odel5s 计算 点 数 (匿名 函数 表示 微分 方程 ) :90; 所 用 时 间 :0.044306s. 

从 上 面 的 代码 可 以 看 到 ,ode45 以 及 ode23 求解 的 计算 量 都 比 odel15s 大 得 多 ,因此 耗费 时 
间 也 长 得 多 ,利用 子 函 数 或 者 匿名 函数 表示 微分 方程 都 可 以 在 方程 求解 的 时 候 把 参数 传递 到 
方程 里 去 。 此 外 , 感 兴趣 的 读者 可 以 改变 参数 c 和 2 的 值 ,会 发 现 , 随 着 b/a 逐渐 增 大 ,方程 的 
刚性 会 逐渐 增强 。 图 10. 5 是 采用 不 同 的 微分 方程 求解 器 以 及 不 同 的 微分 方程 表示 方法 得 到 
的 微分 方程 解 随时 间 变 化 的 图 像 。 从 图 10. 5 中 可 以 看 到 ,其 结果 都 是 一 致 的 。 


子 函 数 形式 /ode23 
100 








子 函 数 形式 /ode15s ”加 名 函数 形式 /ode15s 
100r 100r 














图 10.5 不 同 求解 器 得 到 的 微分 方程 的 解 
【 例 10.3-3】 已 知 mm (ty: (满足 如 下 方程 式 : 
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dy 
由 2 一 Fi) > -站 
dm UngGD 一 wm Lo 2 
dt 
sin(t)， ti 一 4r < 放 ti<7r/2 
基 ) 2 多 站 放 2 
了 0， ee 2cos(t) ， ! 志 7Tx/2 


214| 求 :使 得 F(i) 一 % (ti 十 yz (t) 值 为 0 的 时 间 点 。 
本 例 目的 :介绍 ode23tb 和 函数 deval 的 使 用 ,以 及 如 何 寻 找 一 个 关于 微分 方程 解 的 复合 
函数 的 零点 。 其 代码 如 下 : 


第 10 章 ，” 常 微分 方程 (组 ) 求 解 案 例 目 






运行 TO 一 examplel10_3_3 得 到 Ci) 一 y (CD) 十 y (zt) 的 五 个 零点 为 : 


得 到 wm (i),y: (2) 的 图 像 以 及 下 CD) 一 (十 y% (Ci) 的 图 像 如 图 S 所 示 。 

从 上 面 的 例子 可 以 看 出 ,对 于 较为 复杂 的 微分 方程 ,完全 可 以 方便 地 用 nested function 来 表 
示 。deval 函数 的 作用 是 通过 微分 方程 求解 函数 得 到 的 结构 体 sol 计算 和 指定 的 t 对 应 的 工 值 ， 
和 polyval 等 函数 很 相似 。 从 图 10. 6 可 以 看 到 下 (0) 一 (十 % (0) 一 共有 五 个 零点 ,因此 ,在 
example10_3_3 中 最 后 求 FCD) 一 % (0 十 y (2) 的 零点 时 , 初 值 都 设置 在 相应 的 零点 附近 _。 
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一 一 FO=”GO+2%( 
~ y= 0 直线 

















图 10.6 ”微分 方程 解 曲 线 以 及 两 个 解 的 和 曲线 
10.4 娄 例 21: 隐 式微 分 方程 (组 ) 束 解 


10.4.1 概 述 


一 些微 分 方程 (组 ) 在 初始 给 出 的 时 候 是 不 容易 显示 地 表示 成 上 面 提 到 的 标准 形式 的 。 这 
时 候 就 需要 想 办 法 表示 成 上 述 的 形式 。 一 般 来 说 有 三 种 思路 ,一 种 是 利用 solve 函数 符号 求 
解 出 高 阶 微分 的 显 式 表 达 式 ; 另 一 种 是 利用 fzero/fsolve 函数 求解 状态 变量 的 微分 值 ; 还 有 一 
种 是 利用 MATLAB 自 带 的 odel15i 函数 。 下 面 逐 一 介绍 这 些 方法 。 


10.4.2 利用 solve 函数 
【 例 10.4-1】 求 下 列 微分 方程 组 的 解 。 
下 [yecos(4) 一 好 ] 一 寺 % 一 0 


tsin(ys )/8 一 2yzy2 十 Vty1 一 0 
初始 条 件 为 :y% (1) 王 1,y (1) 一 1。 
该 方程 组 的 和 %% 并 不 是 显 式 给 出 的 。 当 然 , 针 对 本 例 , 可 以 通过 手 算得 出 %% 和 兴 的 表 
达 式 。 不 过 ,为 了 一 般 起 见 ,更 是 为 了 介绍 solve 函数 符号 求解 的 过 程 , 本 例 采 用 solve 函数 求 
解 y， 和 y': 的 显示 表达 式 , 并 自动 将 符号 表达 式 转化 成 微分 方程 函数 句柄 , 供 ode45 等 函数 
调用 求解 。 其 程序 如 下 ; 


function examplel0 4_1 
“多用 符号 积分 求解 dy 的 解析 表达 式 
,1) ,dy(2,1)] = solveC dy2* (Y(2) * cos(4*#t) - Y(1)”3) 一 0 
"tw sin(y(2))/8 - 2#Y(2) wdy2 + sqrt(t) wx dyl'dyl'' dy29 E 
多 5 生成 微分 方程 的 匿名 函数 下 
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上 述 程序 得 到 的 图 形 如 图 10.7 所 示 。 


3.5 





图 10.7 函数 ode45 求解 的 结果 曲线 


10.4.3 利用 fzero/fsolve 函数 


不 是 所 有 的 隐 式 微分 方程 (组 ) 都 能 像 例 10.4- 1 那样 可 以 用 solve 函数 解 出 显 式 表达 式 ， 
而 这 样 的 微分 方程 (组 ) 就 是 真正 的 隐 微 分 方程 (组 )。 

这 时 候 该 怎么 办 呢 ? 首先 分 析 一 下 微分 方程 解 算 器 求解 显 式微 分 方程 的 做 法 。 微 分 方程 
解 算 器 对 微分 方程 的 识别 是 通过 odefun 来 完成 的 ,构造 好 的 odefun 的 输出 就 是 状态 变量 的 
一 阶 微分 ,只 不 过 显 式 条 件 下 ,这 个 值 可 以 直接 通过 算式 表达 出 来 。 微 分 方程 解 算 器 实际 上 是 
不 管 odefun 内 部 是 如 何 得 到 输出 的 。 因 此 ,如 果 微 分 方程 没有 显 式 表达 式 , 可 以 用 数值 求解 “ 
状态 变量 的 一 阶 微分 。 对 于 含有 一 个 状态 变量 的 隐 式 微分 方程 可 以 通过 fzero 函数 求解 ,而 
隐 式 微分 方程 组 可 以 通过 fsolve 函数 求解 。 

【 例 10.4-2】 求 下 列 微分 方程 的 解 。 


x 一 exp| 一 人 [xy 一 0. 5 一 exp( 一 上 十) 了 十 交 一 厨 十 3 } 
其 中 ,初始 条 件 为 y(0) 一 0. 1, 求 解 时 间 区 间 为 [o,20]。 
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该 微分 方程 是 真正 的 隐 式 微分 方程 ,没有 y 关于 +、y 的 显 式 表达 式 , 只 能 通过 数值 方法 求 
出 关于 zy 的 表达 式 。 其 代码 如 下 : 








运行 上 述 程序 得 到 的 图 形 如 图 10. 8 所 示 。 


口 
四 
吕 
吕 
一 癌 
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图 10.8 隐 式 微分 方程 求解 示例 图 像 
【 例 10.4- 3】 求 下 列 微分 方程 组 的 解 。 
2 ) 十 光一 一 2zy 十 zzy/ 
zy 十 cos( 光 ) 一 3z'y 
初始 条 件 为 


z(0) 一 1,z'(0) 一 0,y(0) 王 0,y (0) 王 1 
首先 令 册 i 昌 王 zy 人 b 一 zy 一 >(GD0，y (一 %(D, 则 上 述 方程 组 变 为 
小 一 罗 
msin(y) 十 (0 一 一 2 十 yi3434 
一 汶 


2323 4 十 cos(24) 一 3y2ys 
上 面 是 一 个 隐 式 微分 方程 组 ,在 构造 微分 方程 组 函数 句柄 时 ,需要 对 y%: 和 利用 fsolve 
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函数 进行 数值 求解 。 接 下 来 再 用 ode45 等 函数 求解 微分 方程 组 。 相 应 的 代码 如 下 : 





运行 下 述 代 码 ,得 到 程序 执行 时 间 和 如 图 10. 9 所 示 的 图 形 。 


若 
您 
对 
此 
书 
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图 10.9 隐 式 微分 方程 组 求解 示例 图 像 
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在 ia 而 出 现 之 前 ,对 于 真正 的 隐 式 微分 方程 ,一 般 都 用 上 述 办 法 来 进行 求解 。 这 种 方 
法 的 主要 缺点 是 每 一 个 计算 节点 上 的 处 于 隐 变 量 位 置 的 微分 值 都 要 进行 数值 求解 , 当 系统 比 
较 庞大 时 ,计算 量 非常 大 。 而 且 , 由 于 初始 值 的 选取 问题 ,fsolve 函数 并 不 是 每 次 都 可 以 成 功 
求解 。 


10.4.4 利用 odel5i 函数 


从 MATLAB 7.0 版 本 开始 ,MATLAB 提供 了 odel5i 函数 用 来 求解 隐 式 微分 方程 乃至 
微分 代数 方程 (DAE) 。 下 面 介绍 odel5i 函数 的 用 法 。 
【 例 10.4-4】 用 odel5i 函数 求 下 列 微分 方程 组 的 解 。 
划 本 
sin(y) 十 (y4)2 一 一 2 十 2 
其 一 入 
134 洒 十 cos(y1) 一 3223 
初始 条 件 为 : 


yi (0)=1，y% (0)=0， (0) 王 0， (0) 一 1 
该 例 是 例 10.4 - 3 进行 变量 替换 后 的 形式 。 下 面 利用 odel5i 函数 对 其 进行 求解 。 其 代 
码 如 下 : 
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*{Nity)_4(t) Location'， best ); 
Set(L，fontname '，Times New Roman'); 
xlabel(\itt'，fontsize',16)4 
end 


运行 下 述 代码 ,得 到 程序 执行 时 间 和 如 图 10. 10 所 示 的 图 形 。 


>> ticyexamplel0_4_4itoc 
Elapsed time is 0.221251 seconds. 
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图 10. 10 odelsi 函数 求解 隐 式 微分 方程 组 示例 图 像 
从 examplel0_4_3 和 examplel0_4 4 的 执行 时 间 来 看 ,采用 odel5i 方法 的 速度 明显 高 于 
用 fsolve 方法 的 速度 ,而 且 从 图 像 上 看 ,用 odel5i 方法 和 前 面 用 fsolve 方法 得 到 的 图 像 一 致 
有 兴趣 的 读者 可 以 比较 两 者 得 到 的 y 的 具体 差异 。 需 要 说 明 的 是 ,在 给 出 dy0 的 初始 值 时 , 往 
往 要 猜测 ,如果 初始 猜测 的 值 不 好 ,也 容易 导致 求解 不 成 功 。 这 种 情况 下 可 以 考虑 换 一 下 猜测 
的 初 值 。 


10.S 业 例 22: 柚 分 代数 方程 与 区 迟 微分 方程 求解 


10.5.1 概 述 


在 10. 2 节 已 经 介绍 了 微分 代数 方程 (DAE) 以 及 延迟 微分 方程 的 (DDE) 的 一 些 求解 函 
数 ,本 案例 主要 结合 几 个 方程 详细 介绍 这 些 函 数 的 用 法 。 


10.S.2 微分 代数 方程 举例 


DAE 的 求解 一 般 有 三 种 方法 :一 种 是 变量 替换 法 ; 另 一 种 是 用 odel15s 枯 数 ;还 有 一 种 是 
用 10.4 节 中 提 到 的 odel15i 函数 。 下 面 结合 例子 对 其 进行 介绍 。 
【 例 10.5- 1 求解 下 面 的 微分 代数 方程 。 


互 凑 言 计 名 了 互 贡 球 学 防 淋 
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CR 
dy 
dt 一 0. 2y: 十 yzys 十 0. 3 yz 
do |=| 2 一 5yzys 一 2 
dz 1 
3 十 yz 十 3 


初 值 条件 为 
32i(0) 一 0.8， y%(0) 一 0.1， (0) 一 0.1 
将 上 式 写成 类 似 式 (10 - 1) 的 矩阵 形式 : 


1 0 01fdyyVdz 一 0.2y 十 yzys 十 0.3yiyz 
M(t,y)y' 一 |0 1 0||dy/di|=| 2 一 5ysm 一 2 中 | 一 BCGty) 
0 0 0) dys/d 力 十 yz 十 一 1 

















下 面 给 出 三 种 方法 求解 上 述 方程 的 代码 : 
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运行 上 述 代码 ,得 到 如 图 10. 11 所 示 图 形 。 由 此 可 见 , 三 种 方法 得 到 的 图 所 示 图 形 一 致 
方法 计算 结果 玫 ，_ 方法 ?计算 结果 图 方法 3 计算 果 图 





图 10.11 三 种 方法 求解 DAE 示例 


上 面 是 普通 的 微分 代数 方程 ,再 看 一 个 隐 式 微分 代数 方程 的 例子 。 
【 例 10.5-23】 求解 下 面 的 微分 代数 方程 。 


2 一 0.3y% 一 2yzsin(y) 一 yy 
2 _ | 一 六 一 0.5cos(y1 十 ys ) 一 0.2sin(0. 61 
区 嘲 一 0.2X yz 十 exp( 一 六 ) 

2 十 加 一 为 一 3 1 


初 值 条 件 为 
2 (0) 王 1， 》 (0) 一 0.5， (0) 一 0.3， %(0) 一 0.2 
上 式 是 一 个 隐 式 微分 代数 方程 ,无 法 写成 式 (10 - 1) 所 示 的 矩阵 形式 ,但 是 结合 以 前 的 案 

例 , 我 们 有 两 种 方法 可 以 求解 它 : 一 种 是 变量 替换 后 用 fsolve 函数 求解 出 每 一 计算 节点 的 兴 ， 
22,% 值 ,然后 再 调用 ode45 .ode23tb 等 函数 求解 ; 另 一 种 方法 就 是 直接 利用 odel5i 函数 求解 。 
两 种 方法 的 求解 代码 如 下 : 








执 才 卜 旺 稚 要 二 直 型 恒 区 “ 民 共 如 姑 客 枯 可 半 请 民 MATLAB 全 以 各 内 逻 尝 林 以 杏 。 





人 TAB 
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时 
WwW-.LoveMaflab cn 


西 涡 言 订 二 牺 互 北 球 叶 党 讲 


* 训 疝 准 广 业 症 册 上 二 8VTIVN 淹 成 市 戈 沿 洽 诗 深 关 村 - 
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plot(T2,Y2(:,4),,k- olinewidth',1)4 
hold off 
工 = legendC{fNity}_1(Ct)"y{Nity)_2(t) ，{Nity)_3Ct) 
Nity}_4(t) ,Location'，best); 
set(L，fontname '，Times New Roman '); 
xlabel(\itt'， fontsize',16);title( 方 法 2 计算 结果 图 ) 
end 


运行 上 述 代码 得 到 的 图 形 如 图 10. 12 所 示 。 


方法 1 计算 结果 图 


方法 2 计算 结果 图 























图 10. 12 ”两 种 方法 求解 隐 式 DAE 示例 


【补充 说 明 】 对 于 隐 式 微分 代数 方程 来 讲 ,examplel0 .5_2 给 出 的 两 种 方法 各 有 利 。 
用 fsolve 方 法 的 最 大 缺点 在 于 , 某 些 节点 上 对 于 给 定 的 初始 值 可 能 无 法 收敛 到 方程 的 根 , 因 此 
会 导致 后 面 的 计算 都 会 错 下 去 。 当 然 , 可 以 在 每 步 求 解 的 时 候 根 据 fsolve 返回 的 exitflag 
(fsolve 函数 的 第 三 个 返回 参数 ) 来 判断 是 否 接受 当前 解 ,如 果 不 接受 ,再 重新 计算 ,但 这 样 做 
势必 增加 计算 量 ,而 且 操 作 不 方便 。 

而 用 odel5i 方法 ,给 状态 变量 的 一 阶 微分 赋 初 值 是 个 麻烦 的 事 , 若 赋 的 值 不 好 还 经 常 导 
致 “Convergence failure in DECIC. ”错误 。 在 实际 应 用 中 ,对 一 些 较 复杂 的 问题 可 以 两 种 方法 
取长补短 。 例 如 利用 fsolve 函数 求解 状态 变量 的 一 阶 微分 初 值 值 , 然 后 将 得 到 的 初始 值 作为 
decic 的 dy0 参数 ,进而 得 到 odel5i 所 需要 的 状态 变量 一 阶 微分 的 初始 值 , 这 样 发 生 “Conver- 
gence failure in DECIC. ”错误 的 概率 会 小 些 。examplel0 5_2 中 第 二 种 方法 在 给 dyo 赋 初 值 
时 就 参考 了 第 一 种 方法 fsolve 给 出 的 初始 值 。 


10.S.3 延迟 微分 方程 举例 


DDE 是 微分 方程 表达 式 要 依赖 某 些 状态 变量 过 去 一 些 时 刻 的 状态 , 即 形 如 : 
YY 一 Fityyy(t 一 三 )，yCG 一 庆 ) yt 一 加 )) (10-3) 
其 中 怕 ,,…, 盖 0, 是 时 间 延 迟 项 , 既 可 以 是 常数 也 可 以 是 关于 上 和 y 的 函数 , 当 其 是 常数 时 
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可 以 用 dde23 来 求解 , 当 是 上: 和 > 的 函数 时 可 以 用 ddesd 来 求解 。ddesd 也 可 以 求解 与 ,pm…， 
为 常数 的 情形 ,这 时 的 用 法 和 dde23 类 似 。 下 面 结合 例子 说 明 dde23 和 ddesd 的 用 法 。 
【 例 10.5-3】 求解 下 面 的 延迟 微分 方程 ; 
31] 0.5ys(t 一 3) 十 0.5ya(t)cos(t) 
一 |0.3y (一 1) 十 0.7ys (t)sin(t) 
2 (ti) 十 cos(2z) 











7 
Js 


当 ;: 才 0 时 ,y (ti) 一 1,ys (一 0,y (CD) 一 1。 
dde23 的 调用 格式 如 下 : 









其 中 ,ddefun 表示 式 (10 - 3 右边 项 的 函数 句柄 , 它 代表 的 函数 形式 为 :“dydt= ddefun (ty， 
Zi 与 当前 的 上 对 应 ,y 是 一 个 列 向 量 , 是 对 >(2) 的 近似 。Z 的 第 7 个 列 向 量 , 即 Z(:,j) 是 
对 所 有 延迟 为 右 的 状态 变量 即 > (一 女 ) 的 估计 ,已 一 lags(j);lags 是 存储 各 延迟 常数 的 向 量 ; 
history 是 描述 ts 短 :0 时 的 状态 变量 的 值 的 函数 ,可 以 为 句柄 形式 或 者 常数 形式 ;tspan 以 及 
options 的 意思 同 其 他 ode 求 解 函数 ;sol 为 返回 的 求解 结果 ,是 一 个 结构 体 , 其 中 sol. x 是 时 间 
变量 采样 值 ,而 sol. y 为 状态 变量 求解 值 。 需 要 注意 的 是 ,这 里 的 sol. x 为 行 向 量 ,sol. y 为 行 
向 量 组 成 的 矩阵 ,每 一 行 表示 一 个 求解 出 来 的 状态 变量 。 

本 例 , 方 程 自身 已 经 是 一 阶 微分 方程 组 的 标准 形式 了 , 故 不 用 再 另外 转化 。 状 态 变量 
2 (iD 和 3 (t 分 别 存在 时 间 为 1 和 3 的 延迟 。 求 解 代码 如 下 : 


“ 芒 册 证 认 籼 东 下 上 攻 SYTIVIN 光 由 市 沪 册 蛤 评 六 天 本- 丁 源 言 记 过 六 瑟 本 于 尝 防 潭 








MATLAB + 25 
LA/ [1 高 效 编程 技巧 与 应 用 ; 25 个 案例 分 析 






运行 上 述 程序 得 到 包含 三 个 解 的 图 形 如 图 10. 13 所 示 。 
方程 各 解 的 曲线 图 





图 10.13 延迟 为 常数 的 DDE 求解 示例 


dde23 只 能 求解 延迟 时 间 为 常数 的 DDE。 下 面 再 给 出 一 个 用 ddesd 求解 延迟 时 间 不 为 常 
数 的 DDE 的 例子 。 

【 例 10.5-3】〗 求解 如 下 延迟 微分 方程 : 
32 (t) 
网 症 ee CD))ya (iDzexp(1 一 (CD 


其 中 ,求解 时 间 范 围 为 ttpan 一 [0.1,5]。 
该 延迟 微分 方程 有 解析 解 :y (ti 一 In(t) ,2 (2 一 十, 因此 可 以 作为 时 间 小 于 初 值 时 的 历 
史 函 数 ,同时 也 方便 验证 求解 的 结果 。 利 用 ddesd 函 数 求解 的 代码 如 下 : 
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ddesd 求 解 的 结果 和 解析 解 对 比 图 形 如 图 10. 14 所 示 。 










* 洲 瞪 间 六 灿 生 下 入 式 SVTIVIN 漳 关机 这 败 洛 诗 站 天 本- 配 源 言 宁 寺 恼 孔 世 慰 党 防潮 





时 间 f 
图 10.14 延迟 不 为 常数 的 DDE 求解 示例 


二 





* 洲 内 间 蛮 籼 训 出 生 攻 SVTIVIN 光 阶 林 演 六 路 评 六 天 二 -本 郑 言 宁 壕 轨 互 基于 学 辽 刘 
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10.6 娄 例 23: 边 值 问题 求解 


10.6.1 概 述 


前 面 讨论 的 ode 系列 函数 只 能 用 来 求解 初 值 问题 ,但 是 在 实际 中 经 常会 遇 到 一 些 边 值 问 
题 。 例 如 热传导 问题 。 初 值 时 候 的 热源 状态 已 知 ,一 定时 间 后 温度 达到 均匀 。 再 如 弦 振 动 问 
题 , 弦 两 端 端点 的 位 置 是 固定 的 。 像 这 种 已 知 自 变 量 在 前 后 两 端 时 系统 状态 的 问题 被 称 为 边 
值 问题 ,可 用 下 面 的 方程 来 描述 。 

Ctyyy) 一 0 

定 解 条 件 : 从 y(0) 一 ayy(Cp) 一 by (0) 一 c,y (tn) 一 了 中 两 端点 0 和 和 的 两 个 表达 式 中 
各 选 一 个 组 成 定 界 条 件 。MATLAB 中 提供 了 bvp4c 和 bvp5c 函数 用 于 求解 边 值 问题 。 下 面 
-结合 例子 进行 介绍 。 


10.6.2 求解 便 


【 例 10.6- 1】 求解 下 列 边 值 问题 在 区 间 ;=[0,4] 上 的 解 
昂 一 2y'cos(t) 一 ysin(41) 一 cos(3t) 
边界 条 件 为 :y(0) 一 1,y(4) 一 2。 
首先 进行 变量 替换 ,化 为 标准 形式 。 令 mm (D)=y(D ,2 (Ci 一族 (5 ， 则 上 式 可 化 为 


| 琶 2 
光 2yacos(t) 一 sin(4t) 一 cos(3t) 
求解 代码 如 下 
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运行 上 述 代码 ,得 到 的 结果 如 图 10. 15 所 示 。 


求解 结果 
2.5| 





冯 

1 
柄 
从 


50 0.5 1 1.5 2 
引 

图 10.15 边 值 问题 求解 结果 
看 一 个 非 线性 边 值 的 例子 。 
【 例 10.6-2】 求解 下 列 边 值 问题 ,求解 范围 :一 [0,6]: 





泡 ] 网 四 | 32 ] 

归 | [cosCys)sinGy ) 

边界 条 件 为 m (0) 一 1,y (6) 一 2。 该 微分 方程 组 第 二 个 方程 是 关于 状态 变量 的 非 线性 函数 ， 
利用 bvp4c 的 解法 代码 如 下 : 


* 戈 油 六 并 娄 生 由 上 贱 攻 SVTIVN 济 由 市 芒 注 只 衣 深 天 二- 瑟 产 言 宣 示 办 互 相 于 学 防 课 
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运行 上 述 代 码 , 得 到 的 解 的 图 像 如 图 10. 16 所 示 。 
求解 结果 








.注册 证 准 类 症 风 片 如 SGVTIVIN 涤 由 小 路 生活 认 梁 天 本。 西 源 言 证 兴 加 瑟 基 中 洗 这 浊 





下 ET 
和 41 

时 10.16 带 参数 边 值 问题 的 求解 示例 
再 看 一 个 带 未 知 参 数 边 值 问题 的 求解 例子 。 
【 例 10.6-3】 求解 下 列 边 值 问题 (求解 范围 x=[0,x]) : 











第 萤 沉 役 分 方程 ( 纪 ) 沙 鲜于 人 AAA 人 全 本 人 6 
em 


”]= 2 ] 
上 (一 2gcos(2z) )y) 

该 方程 的 解 % (z) 是 Mathieu 方程 的 特征 函数 ,其 中 g 一 5, 为 未 知 参 数 。 由 于 有 这 个 
未 知 参数 ,因此 ,方程 有 三 个 边界 条 件 :y% (0) 一 1,y (0) 一 0,y (r) 一 0。 求 解 该 问题 的 程序 代 
码 如 下 : 


“ 洲 册 证 认 籼 生 出生 攻 SVTIIVIN 淹 风机 芋 瞪 洲 访 六 天 二。 瑟 澳 辣 订 寺 办 五 共 坏 洗 深 潮 





和 运行 上 述 代码 得 到 结果 如 图 10. 17 所 示 。 


Arune MATLAB 高 效 编 程 技巧 与 应 用 ; 25 个 案例 分 析 


方程 的 解 yi 为 Matheu 方 程 的 特征 函数 


,路 岂 坟 讲 曙 证 由 屿 二 9YTIVIN 光 内 刷 世 岂 洲 认 六 天 二。 本 源 言 永 圭 凡 五 世 叶 学 险 计 
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图 10.17 带 未 知 参 数 边 值 问题 的 求解 示例 (Mathienu 方程 的 特征 函数 ) 


10.6.3 对 byp4c 和 byvpsc 的 改进 


在 3.3.2 节 曾经 提 到 过 在 生成 稀 玻 矩阵 时 ,准备 好 数据 利用 sparse 函数 直接 生成 的 效率 
要 比 先 用 spalloc 函数 创建 一 个 稀 朴 矩阵 S, 然 后 在 程序 中 用 “S(i,j)= 数 据 ? 赋 值 的 方式 高 。 
仿真 科技 论坛 的 junziyang 网 友 发 现在 bvp4c 和 bvp5c 中 大 量 使 用 后 者 的 方式 访问 稀 朴 矩阵 。 
因此 他 对 上 述 两 个 函数 做 了 相应 的 改进 ,发 现 改进 后 的 程序 在 方程 数 较 少 的 情况 下 ,优化 前 后 
的 差别 还 不 明显 ,但 随 着 方程 数量 的 增加 ,效率 提升 越 来 越 明显 。 图 10. 18 所 示 是 他 试验 的 方 
程 数 为 156 个 时 ,bvp4c 和 bvp5c 优化 前 后 用 profiler 得 到 的 计算 时 间 开 销 对 比 。 其 中 byp4c 
和 bvp5c 是 MATLAB 的 自 带 函 数 ;bvp4c2 和 bvp5c2 是 优化 后 的 画 数 。 实 验 环境 :操作 系统 
为 Windows XP sp3,CPU 为 Pentium D 915 ,内 存 为 1GB,MATLAB 版 本 为 R2009a。 
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图 10.18 改进 前 后 的 byp4c 和 byvpse 函数 效率 对 比 
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10; 18 中 画 虚 线 框 的 部 分 是 两 个 函数 优化 的 那 部 分 代码 优化 前 后 的 运行 时 间 。 由 此 可 
见 * 对 于 一 些 较 大 型 的 问题 ,优化 后 的 sparse 矩阵 处 理 部 分 的 速度 有 100 倍 以 上 的 提升 。 下 
面 的 链接 里 有 bvp4c2 和 bvp5c2 的 代码 。 

bvp4c2 的 链接 :http://www. mathworks. corm/matlabcentral/fileexchange/24359 

或 者 :http://cid-909609e321d6e37a. skydrive. live. comy/self. aspx/. Public/bvp4c2. zip 

bvp5c2 的 链 接 : http://www。 mathworks. com/matlabcentral/fx _ files/24360/1/ 
bvp5c2. zip 

或 者 :http://cid-909609e321d6e37a. skydrive. live. comyself. aspx/. Public/bvp5c2. zip 

使 用 方法 :将 下 载 的 文件 解压 到 MATLAB 安装 路 径 下 的 toolboxNmatlab\funfun\ 文 件 
夹 下 ,在 用 户 程序 中 将 使 用 的 bvp4c/bvp5c 改 为 bvp4c2/bvp5c2 即 可 。 





目 * 当 沿 闪闪 煌 生机 生 二 HGVTIVIN 郊 由 训 性 兴 入 注 天 二-。 西 源 言 订 坟 明 也 关怀 学院 讲 





11.1 层次 分 析 法 概述 


简单 来 说 ,层次 分 析 法 (Analytic Hierarchy Process,AHD) 就 是 将 要 决策 的 问题 以 及 和 
这 些 问 题 有 关 的 因素 分 解 成 目标 、 准 则 .方案 等 层次 ,在 此 基础 之 上 进行 定性 和 定量 分 析 的 决 
策 方法 。 该 方法 是 美国 运筹 学 家 T. L. Saaty 教授 于 20 世纪 70 年 代 在 为 美国 国防 部 研究 “ 根 
据 各 个 工业 部 门 对 国家 福利 的 贡献 大 小 而 进行 电力 分 配 ? 课 题 时 提出 来 的 。 层 次 分 析 法 的 主 
要 特征 是 合理 地 将 定性 与 定量 的 决策 结合 起 来 ,按照 思维 ,心理 的 规律 把 决策 过 程 层 次 化 、 数 
量化 。 由 于 层次 分 析 法 在 处 理 复杂 的 决策 问题 上 的 实用 性 和 有 效 性 ,使 得 其 提出 后 很 快 在 世 
界 范围 得 到 重视 , 目前 层次 分 析 法 应 用 已 遍及 经 济 、 管 理 、 能 源 政 策 制定 和 能 源 分 配 、 行 为 科 
学 .军事 指挥 .运输 农业、 教育 人才、 医疗 和 环境 等 各 个 领域 。 

层次 分 析 法 的 基本 思路 与 人 们 对 一 个 决策 问题 的 思维 、 判 断 过 程 大 体 上 是 一 样 的 。 以 买 
笔记 本 电脑 为 例 , 假 如 有 三 种 不 同 款式 不 同 品牌 的 笔记 本 电脑 A,B,C 供 选 择 ,我 们 一 般 会 根 
据 价 格 ` 外 观 , 重 量 . 用 途 、 功 耗 ,品牌 等 一 些 准则 去 反复 比较 这 三 个 候选 。 首 先 ,会 确定 这 些 准 
则 在 自己 心目 中 各 占 多 大 比重 ,不 同 的 人 这 种 比重 会 有 很 大 差异 。 例 如 :喜欢 玩 一 些 大 型 3D 
游戏 的 人 自然 很 看 重 其 硬件 性 能 ;而 只 是 用 来 上 网 聊天 , 躺 在 床上 看 电影 的 人 则 会 优先 考虑 其 
重量 以 及 散热 量 ; 预 算 有 限 的 人 还 会 对 价格 予以 较 多 关注 。 其 次 ,还 会 就 每 一 个 准则 将 A,B， 
C 进行 对 比 ,比如 A 最 便宜 ,B 次 之 ;C 性 能 最 好 ,B 次 之 ;B 最 轻巧 ,C 的 品牌 最 知名 等 。 最 
后 ,要 将 这 两 个 层次 的 比较 判断 进行 综合 ,在 A、.B、C 中 确定 一 台 作 为 最 符合 自己 需求 的 电脑 。 


11.2 层次 分 析 法 实现 步骤 


11.2.1 层次 分 析 法 的 主要 实现 步骤 


层次 分 析 法 在 分 析 问题 时 主要 分 以 下 四 步 进 行 : 

1) 分 析 系 统 中 各 个 因素 之 间 的 关系 ,建立 系统 的 递 阶层 次 结构 。 

2) 对 同一 层次 的 各 元 素 关 于 上 一 层次 中 某 一 准则 的 重要 性 进行 两 两 比较 ,构造 两 两 比较 
判断 矩阵 。 

3) 由 判断 矩阵 计算 被 比较 元 素 对 于 该 准则 的 相对 权重 以 及 一 致 性 检验 。 

4) 计算 各 层 元 素 对 系统 目标 的 合成 权重 ,并 进行 排序 。 

下 面 对 各 步骤 进行 介绍 。 


11.2.2 建立 层次 分 析 的 结构 模型 
用 层次 分 析 法 分 析 问题 ,首先 要 做 的 是 把 问题 条 理化 ,层次 化 ,构造 层次 分 析 的 结构 模型。 
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这 些 层次 大 体 上 可 分 为 以 下 三 类 。 

17 最 高 层 :在 这 一 层次 中 只 有 一 个 元 素 , 一 般 是 分 析 问题 的 预定 目标 或 理想 结果 ,因此 又 
称 目标 层 。 

2) 中 间 层 。 又 称 准则 层 , 包 括 了 为 实现 目标 所 涉及 的 中 间 环 节 。 这 一 层 可 由 若干 层次 组 
成 ,包括 所 需要 考虑 的 准则 、 子 准则 。 

3) 最 底层 :表示 为 实现 目标 可 供 选 择 的 各 种 措施 决策 方案 等 ,因此 又 称 为 措施 层 或 方 
案 层 。 

层次 分 析 结构 中 的 各 项 称 为 此 结构 模型 中 的 元 素 。 各 层 之 间 的 关系 如 图 11.1 所 示 。 





方案 1 方案 2 心 方案 r。 | 方案 层 〈 措 施 层 ) 


图 11.1 AHP 各 层 关系 图 


层次 之 间 的 支配 关系 不 一 定 是 完全 的 , 即 可 以 有 元 素 ( 非 底层 元 素 ) 并 不 支配 下 一 层次 的 
所 有 元 素 而 只 支配 其 中 部 分 元 素 。 这 种 自 上 而 下 的 支配 关系 所 形成 的 层次 结构 , 称 为 递 阶层 
次 结构 。 递 阶层 次 结构 中 的 层次 数 与 问题 的 复杂 程度 及 分 析 的 详尽 程度 有 关 , 所 以 ,层次 数 一 
般 可 不 受 限制 。 

为 了 避免 由 于 支配 的 元 素 过 多 而 给 两 两 比较 判断 带 来 困难 ,每 层次 中 各 元 素 所 支配 的 元 
素 一 般 不 要 超过 九 个 , 若 多 于 九 个 时 ,可 将 该 层次 再 划分 为 若干 子 层 。 

例如 本 章 刚 开始 提 到 的 买 笔记 本 电脑 模型 ,可 以 建立 如 图 11. 2 所 示 的 递 阶层 次 结构 。 








先 购 笔记 本 电脑 4 目标 层 
价 外 用 功 曲 
格 观 途 耗 牌 
本 2 处 | 准则 导 
电脑 C, 电脑 C 方案 层 (措施 层 ) 


图 11.2 选 购 电脑 层次 结构 模型 图 
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11.2.3， 构造 成 对 比较 矩阵 


构造 好 层次 分 析 的 模型 后 ,针对 某 一 层 来 讲 , 在 比较 第 ;个 元 素 与 第 7 个 元 素 相 对 上 一 层 
某 个 因素 的 重要 性 时 ,使 用 数量 化 的 相对 权重 ay 来 表示 ,假设 共有 个 元 素 参 与 比较 , 则 下 列 
和 矩阵: 

仅 一 (az )wxw 《1t1 一 1 

称 为 成 对 比较 矩阵 ,也 称 成 对 判断 矩阵 。 

Saaty 根据 绝 大 多 数 人 认 知 事物 的 心理 习惯 ,建议 用 1 一 9 及 其 倒数 作为 标 度 来 确定 ay 的 
值 。1 一 9 比例 标 度 的 含义 如 表 11 -1 所 列 。 

表 11-1 1~9 标 度 含义 


比 了 强 的 重要 程度 相等 稍 强 强 很 强 绝对 强 
ai 1 3 5 7 9 





其 中 ,2,4,6,8 分 别 介 于 1,3,5,7,9 对 应 的 重要 程度 之 间 。 显 然 ,4 的 元 素 有 如 下 特征 。 

1) 对 于 任意 ij 一 1,2,… ,有 ai 二 0。 

2) 对 于 任意 ij 一 1,2,…,2* 有 一 1/as 。 

3) 对 于 任意 ij 一 1,2, ,2 有 ai 一 1。 
称 成 对 比较 矩阵 4 为 正 互 反 矩阵 。 

例如 ,对 于 上 面 选 购 笔记 本 电脑 的 模型 来 说 ,可 以 根据 实际 三 台电 脑 的 重量 得 到 电脑 对 准 
则 层 B, 的 正 互 反 和 矩阵 (ay 可 以 取 笔 记 本 电脑 7 和 ti 的 重量 之 比 ) : 
上 - 合 /3 FA5 
3 外 \ 卫 3 人 5 
5 5/3 1 


11.2.4 单一 准则 下 元 素 相 对 排序 权重 计算 及 比较 矩阵 一 致 性 检验 


单一 准则 下 ,由 比较 矩阵 导出 元 素 相对 排序 权重 的 方法 有 多 种 ,其 中 特征 根 法 是 提出 最 
早 ,应 用 最 广 的 方法 。 这 里 主要 介绍 这 种 方法 。 在 介绍 特征 根 法 之 前 , 先 引 入 一 个 概念 :一 至 
性 矩阵 。 
一 致 性 矩阵 是 指 阶 正 互 反 和 矩阵 (ay ) 满 足 对 于 任意 的 iG 一 1,2,…，72)， 有 
QaQ 捷 二 QH 
特征 根 法 的 基本 思想 是 , 当 正 互 反 矩阵 (as ) 为 一 致 性 矩阵 时 ,其 特征 根 问题 
ro 一 Ar (11=-2) 
的 最 大 特征 根 所 对 应 的 特征 向 量 归 一 化 后 即 为 排序 权 向 量 。 判 断 正 互 反 矩阵 (as ) 是 否 为 一 
致 性 矩阵 有 如 下 定理 : 
定理 11.1 ” 阶 正 互 反 和 矩阵 4 一 (ay ) 是 一 致 性 矩阵 的 充分 必要 条 件 是 4 的 最 大 特征 值 
Asm18。 
特征 根 法 要 求 正 互 反 矩阵 (ay ) 为 一 致 性 矩阵 。 在 实际 操作 中 ,由 于 客观 事物 的 复杂 性 以 
及 人 们 对 事物 判别 比较 时 的 模糊 性 ,很 难 构造 出 完全 一 致 的 判断 矩阵 。 因 此 Satty 在 构造 层 


4a-c 一 
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次 分 析 法 时 ,提出 满意 一 致 性 的 概念 , 即 用 4 的 最 大 特征 值 Me* 与 的 接近 程度 来 作为 一 致 性 
程度 的 尺度 。 这 就 涉及 对 得 到 的 正 互 反 和 矩阵 4 的 一 致 性 检验 问题 。 其 一 致 性 检验 的 步骤 
如 下 : 

1) 计算 矩阵 4 的 最 大 特征 值 Moss 。 

2) 求 一 致 性 指标 (Consistency Index) 


am 一 于 
C:L 尊 < 于 (11-3) 


3) 查 表 求 相应 的 平均 随机 一 致 性 指标 (Rondom Index) 。 平 均 随机 一 致 性 指标 可 以 预先 
计算 制 成 表 。 其 计算 过 程 如 下 : 

取 定 阶 数 ”, 随 机 取 9 标 度数 构造 正 互 反 和 矩阵 后 求 其 最 大 特征 值 ,共计 算 次 (mm 足够 
大 )。 计 算 这 m 个 最 大 特征 值 的 平均 值 Kx， 得到， 


人 权 
R.I 一 2 CG1-4) 


Satty 以 闷 一 1000 得 到 表 11- 2。 
表 11=-2 不 同 阶 数 矩 阵 的 随机 一 致 性 指标 





我 们 可 以 利用 MATLAB 实现 Satty 计算 随机 一 致 性 指标 的 方法 , 当 和 矩阵 阶 数 大 于 13 
时 ,可 以 按照 程序 计算 得 到 相应 的 R.I 。 实 现 上 述 方法 的 代码 如 下 





运行 上 述 代 码 得 到 如 下 结果 : 
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由 此 可 见 , 程 序 计算 出 的 结果 和 表 11 - 2 很 接近 ,实际 计算 中 由 于 随机 数 的 产生 不 可 能 每 
次 都 一 样 ,因此 每 次 计算 得 到 的 R.I. 都 不 尽 相 同 ,但 范围 都 很 接近 。 
4) 计算 一 致 性 比率 C.R. (Consistency Ratio) : 


全 工 
C.R. 一 民工 


5) 判断 , 当 C.R. 一 0. 1 时 ,认为 判断 矩阵 4 有 满意 一 致 性 ;否则 , 若 C. R. 三 0. 1, 应 考虑 
修正 判断 矩阵 4。 


11.2.5 各 元 素 对 目标 层 合 成 权重 的 计算 过 程 


为 了 实现 层次 分 析 法 的 最 终 目的 ,需要 从 上 而 下 逐 层 进 行 各 层 元 素 对 目标 合成 权重 的 
计算 。 
设 已 计算 出 第 & 一 1 层 ww-: 个 元 素 相 对 于 目标 的 合成 权重 为 
一 (zeD yzgD ia 《IT-57 
再 设 第 & 层 的 mx 个 元 素 关于 第 & 一 1 层 第 1 个 元 素 G 一 1,2,…，,m-;) 的 单一 准则 排序 权 
重 向 量 为 
一 (zz 名， 区 和 (11 一 6) 
式 (11-6) 应 对 第 层 的 mx 个 元 素 是 完全 的 。 当 某 些 元 素 不 受 & 一 1 和 7 个 元 素 支配 
时 ,相应 位 置 用 零 补充 ,于 是 得 到 因 Xmu-: 和 矩阵 : 


2 人 
这 和 汪汪 G1-7) 
利用 式 (11 - 5) 和 式 (11 - 7) 可 得 到 第 上 层 xx 个 元 素 关 于 目标 层 的 合成 权重 : 
W 内 二 DOWLD ，  (G1-8) 
， 分解 可 得 - : 
W 一 UDC-D TCD WwWC2) 《11-9) 


将 式 (11- 9) 写 成 分 量 形式 ， 有 


二 当 fbD， 工 一 1, 2， (11-10) 
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各 层 元 素 对 目标 层 的 合成 排序 权重 向 量 是 否 可 以 满意 接受 , 同 单一 准则 下 的 排序 问题 一 
样 ,需要 进行 综合 一 致 性 检验 。 

设 层 的 综合 指标 分 别 为 一 致 性 指标 C. 攻 , 随 机 一 致 性 指标 R. 工 ,一 致 性 比率 
C.R.”。 再 设 以 第 & 一 1 层 上 第 7 元 素 为 准则 的 一 致 性 指标 为 C. 工 儿 , 平 均一 致 性 指标 为 
R. 工 史 G 一 1,2，2-5) 那么 4 

CE 四 一 (CC 工 多 -5G 开 各 We 
1 (11-11) 
= wyroc.I， 
轧 1 
及 .I. 史 一 (R.I 人 人,R. IE，，R. 工 SA )w5eD 
3 Ai- 《LIL= 127 
一 闷 woR.I， 
3 全 
利用 式 (11 - 11) 和 式 (11 - 12), 可 计算 综合 一 致 性 比率 


《A) 
CR. 呈 一 且 开 机 


当 C.R. ”<0. 1 时 ,认为 递 阶 层次 结构 在 第 上层 以 上 的 判断 具有 整体 满意 的 一 致 性 。 

在 实际 应 用 中 ,整体 一 致 性 检验 常常 不 予 进行 ,主要 原因 是 对 整体 进行 考虑 是 十 分 困难 
的 ; 另 一 方面 , 若 每 个 单一 准则 下 的 判断 具有 满意 一 致 性 ,而 整体 达 不 到 满意 一 致 性 时 ,调整 起 
来 非常 困难 。 这 个 整体 满意 一 致 性 的 背景 不 如 单一 准则 下 的 背景 清晰 , 它 的 必要 性 也 有 待 进 
一 步 研 究 。 

根据 上 面 的 分 析 讨 论 可 以 得 到 下 面 实现 一 般 层 次 分 析 法 的 MATLAB 程序 : 


2 es 计 





(11-13) 
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11.3 应 用 实例 


【 例 11.3- 1 某 工 厂 有 一 笔 企 业 留 成 利润 ,需要 决定 如 何 分 配 使 用 。 已 经 决定 有 三 种 
用 途 : 用 做 奖金 ,集体 福利 设施 及 引进 技术 设备 。 考 察 的 准则 也 有 三 个 :是 否 能 调动 职工 的 积 
极 性 ,是 否 有 利于 提高 技术 水 平 及 考虑 改善 职工 生活 条 件 。 由 此 建立 如 图 11. 3 所 示 的 层次 分 
析 模 型 。 





图 11.3 ”使 用 利润 层次 结构 模型 图 ， 和 


经 过 工厂 决策 人 员 讨 论 , 可 以 得 到 如 下 各 判断 矩阵 。 
C 层 关于 目标 层 的 判断 矩阵 为 


* 洲 尚 刘 准时 种 出生 于 8VTLVN 光 由 市 训 沿 小 诗 六 天 本 瑟 源 言 永 吉 痕 互 贡 于 学 陀 浊 
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由 于 Ci 一 Cs: 都 受 A 的 支配 ,因此 相应 的 逻辑 数组 为 [true true true] 。 
己 层 对 C 层 的 判断 矩阵 如 下 : 
也 层 对 Ci 元 素 : 


由 于 只 有 P, 和 P; 受 Ci 的 支配 ,因此 相应 的 逻辑 数组 为 [true _ true false]。 
已 层 对 C, 元 素 ， 


由 于 只 有 P: 和 P; 受 C* 的 支配 ,因此 相应 的 逻辑 数组 为 [false true true] 。 
卫 层 对 C: 元 素 : 





P 1/2 1 


由 于 只 有 P, 和 P 受 C, 的 支配 ,因此 相应 的 逻辑 数组 为 [true true false]; 
有 了 上 述 两 两 比较 矩阵 后 ,可 以 利用 ahp 函数 来 进行 分 析 。 构 造 ahp 函数 输入 变量 C 以 
及 求解 过 程 如 下 : 。 








四 “ 族 瞪 证 六 灿 生 下 片 于 8VTIVIN 移 齿 林 访 冰 六 计 六 天 本- 西 源 辣 示 寺 轨 卫 基于 学 济 淋 





最 后 得 到 的 丽 就 是 方案 层 各 个 方案 所 占 的 比重 。 由 此 可 见 ,引进 技术 设备 所 占 比 重 最 
大 ,改善 员工 福利 次 之 。 体 现在 资金 分 配 上 , 即 用 全 部 留成 利润 的 53. 08% 引进 技术 设备 ， 
27. 08% 改 善 员工 福 利 , 剩 下 的 19; 84%% 发 奖金 。 
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【 例 11.3 -2】 假设 某 人 在 制定 食谱 时 有 三 类 食品 可 选 ; 肉 ` 面 包 和 蔬菜 。 这 三 类 食品 所 
含 营养 成 分 及 单价 如 表 11 - 3 所 列 。 4 


表 11-3 食品 营养 成 分 及 单价 





假设 该 人 体重 为 55kg, 每 天 对 各 类 营养 的 最 小 需求 为 


维生素 A 7 500 国际 单位 (IU) 
维生素 B: 1. 6338 mg 
热量 (Q) 8 548. 5 kJ 


问题 是 :应 如 何 制定 食谱 使 得 在 保证 营养 的 前 提 下 支出 最 小 ? 
如 果 单 纯 考虑 问题 条 件 ,容易 建立 下 面 的 简单 线性 规划 模型 ; 
设 选 择 肉 为 zi ,面包 为 z: ,蔬菜 为 zs * 则 有 
min 丰 一 0.0275zi 十 0.006zz 十 0. 007zs 
s.t。 0. 3527zi 十 0. 0005zz 十 25. 0zs 之 7500 
0. 0021zi 十 0. 0006z? 十 0. 002zs 之 1. 6338 (11-14) 
11. 93zi 十 11. 51z: 十 1. 04zs 之 8548. 5 
ZiyzzZ3Z0“ 
对 于 上 面 的 问题 ,利用 MATLAB 中 求解 线性 规划 的 函数 linprog, 很 容易 就 求 出 最 优 解 
以 及 最 优 值 , 求 解 代码 如 下 : 


求解 出 来 的 结果 就 是 不 吃 肉 ,选择 面包 687. 44 g, 蔬 菜 610. 67 g, 每 日 最 低 支出 为 8. 40 
元 。 读者 到 这 里 可 能 已 经 注意 到 ,这 个 方案 在 实际 中 是 很 难 让 人 接受 的 ,因为 它 没有 考虑 到 营 
养 均衡 ,虽然 总 的 营养 够 ,但 是 食物 不 多 样 化 ,完全 偏向 价格 便宜 ,营养 相对 丰富 的 食物 ,显得 
不 “人 性 化 ”。 解决 这 个 问题 的 一 个 比较 好 的 思路 就 是 利用 层次 分 析 法 。 使 用 层次 分 析 法 可 以 
将 人 们 的 偏好 因素 以 及 食物 的 均衡 性 引入 到 问题 的 求解 中 。 对 于 上 面 的 问题 可 以 建立 如 
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图 11. 4 所 示 的 层次 结构 。 





图 11.4 食谱 营养 分 析 层 次 结构 图 


有 了 上 面 的 结构 图 ,可 以 根据 偏好 建立 两 两 比较 失 阵 ,当然 偏好 因 人 而 异 。 例 如 可 以 得 到 
如 下 两 两 比较 矩阵 。 

第 二 层 对 第 一 层 的 比较 矩阵 :C{1){1,1}=[1 3;1/3 1], 由 于 营养 和 支出 都 要 考虑 ,所 以 
相应 的 逻辑 数组 为 C(1}{2,1} 一 true(2,1) 。 

从 图 11.4 看 出 第 二 层 支出 D, 直接 支配 第 四 层 , 因 此 ,第 三 层 第 四 个 元 素 还 是 支出 D, ,这 
样 C(2}{1,1} 王 [112;112; 1/2 1/2 J (三 种 营养 元 素 对 营养 的 判断 矩阵 ) ;相应 的 逻辑 矩阵 
为 C{2}({2,1} 一 [true true true false]; 

C{2}(1,2} 一 1( 支 出 对 支出 的 判断 矩阵 ); 相应 的 逻辑 矩阵 为 C(2}{2,2} = [false,false， 
false,true]; 

第 三 层 对 第 四 层 元 素 的 两 两 比较 矩阵 可 以 用 原始 的 营养 成 分 以 及 单价 的 数据 得 到 , 即 

C{3}{1,1) 一 [1,0. 3527/0. 0005,0. 3527/25;0. 0005/0. 3527,1,0. 0005/25;25/0. 3527， 
25/0. 0005,1 ]; (三 种 食品 对 维生素 A 的 判断 矩阵 )， 相应 的 逻辑 数组 :C{3}{2,1} 一 true(3,1)， 

C13}{1，2} 一 [1,0. 0021/0. 0006, 0. 0021/0. 002; 0. 0006/0. 0021, 1, 0. 0006/0. 002; 
0. 002/0. 0021,25/0. 0006,1 ]; (三 种 食品 对 维生素 B, 的 判断 矩阵 );， 相应 的 逻辑 数组 :C{3)} 
{2,2} 一 true(3,1); 

C{3}({1,3} 一 [1,11. 93/11. 51,11. 93/1. 04; 11. 51/11. 93,1,11. 51/1. 04;1. 04/11. 93， 
1. 04/11. 51,1 ];( 三 种 食品 对 热量 的 判断 矩阵 )， 相 应 的 逻辑 数组 :C{3}{2,3} 一 true(3,1); 

C{3)f1,4} 一 [1,0. 006/0. 0275,0. 007/0. 0275;0. 0275/0. 006,1,0. 007/0. 006;0. 0275/ 
0. 007,0. 006/0. 007,1 ] (三 种 食品 对 单价 的 判断 矩阵 ,注意 单价 越 高 越 不 重要 ); 相应 的 逻辑 
数组 :C{3}{2,4} 一 true(3,1) 。 

至 此 ,层次 分 析 法 函数 ahp 的 输入 参数 C 都 有 了 ,可 以 运行 下 面 的 代码 ; 
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上 述 结果 表明 , 按 这 个 人 的 情况 , 肉 .面包 和 蔬菜 的 比例 取 0. 1064,0. 1918,0. 7019 比较 合 
适 , 引 入 参 变 量 &, 令 zi 一 0. 1064&，z? 一 0. 1918&，zs 一 0. 7019& ,将 其 带 和 人 式 (11 - 14) 则 得 到 
新 的 线性 规划 模型 , 
min 一 0. 009A 
s.t.17. 5851A 达 7500 
0. 0017& 之 1. 6338 (11-15) 
4. 2069k 之 8548.5 
A 三 0 
手 算 即 可 求解 ,得 & 一 2 032, 因 此 得 到 一 (216.2,，389.7,，1 426.3); 即 每 日 食用 肉 
216. 2 g, 面 包 389.7 g, 蔬 菜 1 426. 3 g。 每 日 食品 支出 为 18. 29 元。 
当然 对 于 不 同 的 人 可 以 有 不 同 的 判断 矩阵 ,如 果 认 为 食品 支出 过 高 ,可 以 修改 第 二 层 对 第 
一 层 的 比较 矩阵 ,如 修改 成 “[1 1/3;3 1];”, 类 似 的 计算 可 得 到 : 
z 一 (145.0，529.2，699.7) 
即 每 日 食用 肉 145. 0 克 , 面 包 529. 2 克 ,蔬菜 699.7 克 。 每 日 食品 支出 为 12. 06 元 。 
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12.1 定时 器 介绍 


12.1.1 概 述 


从 MATLAB 6. 5 版 本 开始 ,MATLAB 开始 支持 定时 器 。 相 对 于 传统 的 pause 函数 , 定 
时 器 要 强大 得 多 ,不 仅 可 以 等 效 实现 pause 的 功能 ,还 可 以 实现 更 多 pause 无 法 实现 的 功能 ， 
一 些 需要 在 一 定 周期 内 独立 运行 的 程序 特别 适合 利用 定时 器 来 实现 。 

完整 建立 一 个 定时 器 ,并 让 它 发 挥 作用 ,一 直到 最 后 删除 需要 以 下 几 个 步骤 :第 一 ,利用 
timer 函数 建立 定时 器 ;第 二 ,利用 start 函数 启动 定时 器 ;第 三 ,利用 stop 函数 停止 定时 器 ;第 
四 ,利用 delete 函数 删除 定时 器 ;第 五 ,利用 clear 函数 删除 代表 定时 器 句柄 的 变量 。 

定时 器 的 建立 非常 类 似 于 GUI 中 控件 的 建立 , 即 都 有 专门 的 函数 来 建立 ,并 可 以 返回 代 
表 其 本 身 的 句柄 ,并 可 以 在 需要 时 利用 set 函数 操作 其 句柄 来 完成 属性 的 修改 和 设置 。 下 面 
着 重 介绍 定时 器 的 属性 。 
12.1.2 定时 器 属性 介绍 

定时 器 支持 的 属性 , 即 timer 或 者 set 函数 支持 的 属性 见 表 12 - 1。 
表 12-1 定时 器 属性 表 
属性 描述 数据 类 型 . 值 ` 默 认 值 . 访 问 情况 
| eae aa 人 
遇 默认 为 空 ;只 有 “ExecutionMode" 设置 为 除 
定时 器 启动 后 ,执行 的 所 有 TimerFcn 之 间 auwhSheg 大 逢 证 :并 让 -EGG 基 


信和 汐 居 古 对 风 际 被 执行 两 次 及 两 次 以 上 时 才 有 确定 的 值 ， 
始终 是 只 读 型 的 








当 上 一 次 的 timerfcn 未 执行 完 , 而 新 的 tim- 
erfcn 又 要 被 执行 ,定时 器 所 采取 的 操作 。 
有 三 种 不 同 操作 ， 

“drop”( 不 执行 timerfcn 函数 ); 
“error"( 产 生 错 误 , 此 种 情况 下 要 求 ErrorF- 
m 事 先 设置 好 ,并 执行 ErrorFcn)， 
“queue"”: timerfcn 进入 队列 ,并 在 下 一 次 可 
执行 的 时 候 执行 


枚 举 字 符 串 类 型 , 值 有 ”drop”,“error”， 
“queue" 三 种 类 型 ， 

默认 为 “drop”， 

当 属 性 “Running" 为 “on” 时 是 只 读 的 , 即 此 时 
不 可 修改 “BusyMode" 属 性 














Arune 





目 * 洲 内 认 六 籼 亲 由 生 二 8VTILVIN 光 趣 林 洲 由 法 诗 六 天 十- 配 关 语 记过 特 卫 此 刁 学 陀 潭 


WwW.iLove 人 Moflab .cn 





MATLAB 高 效 编程 技巧 与 应 用 ; 25 个 案例 分 析 





续 表 12 -1 





数据 类 型 值 .默认 值 . 访 问 情况 








ErrorFcn 


当 过 到 错误 时 ,定时 器 所 执行 的 函数 。 该 函 
数 要 在 StopFcn 之 前 执行 


ErrorFcn 类 型 :字符 中 ,函数 句柄 或 者 cell 
数组 ; 

默认 为 空 ; 

一 直 是 可 以 改写 的 













ExecutionMode 


定时 器 的 执行 模式 


类 型 : 枚 举 字符 串 ， 
可 取 的 值 : 
《“singleShot”、“fixedDelay”、“ fixedRate”、 
“fixedspacing”); 

默认 :“singleShor”; 

当 属性 “Running" 设 为 “on” 时 只 读 















JnstantPeriod 


-| 


最 后 执行 的 两 个 TimerFen 之 间 的 时 间 间 隔 


二 





double 型 数值 
默认 为 NaN; 
只 支持 只 读 














Name 


用 户 自 己 设 定 的 定时 器 的 名 字 





字符 串 类 型 ， 
默认 “timer -ii 表示 按 先后 顺序 设置 的 第 i 
个 定时 器 ,执行 “delete(timerfindall)” 命 令 可 
以 使 得 ;的 计数 重新 从 1 开始 ; 

始终 是 只 读 型 的 















ObjectVisibility 


以 在 定时 器 创立 的 mn 文件 中 设置 该 属性 


访问 定时 器 。 如 果 某 定时 器 的 “ObjectVisi- 
bility" 属 性 设 为 “off”, 则 该 定时 器 对 timer- 
find 函数 不 可 见 

该 属性 不 影响 定时 器 的 其 他 性 质 ,开发 者 可 





十 
给 开发 者 提供 一 种 途径 用 来 阻止 终端 用 户 





类 型 : 枚 举 字符 申 ， 

可 取 的 值 :(“off",“on”); 
默认 的 值 ,“on"，; 

一 直 是 可 以 改写 的 











Period TimerFcn 的 执行 周期 ,单位 是 秒 





任何 大 于 0. 001 的 double 型 数值 ; 
默认 值 是 1. 0; 
当 属性 “Running" 设 为 on 时 只 读 











Running 


表明 当前 定时 器 是 否 正在 执行 





类 型 , 枚 举 字符 中 
值 :“off" on 
默认 值 “off"; 
始终 是 只 读 型 的 











StartDelay 


指定 定时 器 从 开始 运行 到 第 一 次 执行 Tim- 


任何 大 于 等 于 0 的 double 型 数值 ; 





默认 值 是 0; 
当 属 性 “Running" 设 为 “on" 时 只 读 
















StartFcn 


erFcn 之 间 的 时 间 延 迟 ,单位 是 秒 


定时 器 启动 的 时 候 执行 的 函数 












StartFen 类 型 :字符 串 , 函 数 句柄 或 者 cell 
数组 ; 

默认 为 空 ; 

一 直 是 可 以 改写 的 
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续 表 12 - 工 


数据 类 型 、 值 .默认 值 ,访问 情况 









定时 器 停止 的 时 候 执 行 的 函数 .定时 器 停 





























止 的 情况 有 以 下 几 种 。 
1) 调用 stop 函数 停止 定时 器 的 执行 ， 
2) 定时 器 完成 了 TasksToExecute 设 定 的 | StepFen 美 型 :字符 囊 , 函 数 句柄 或 者 cell 
StopFen 执行 次 数 , 即 每 执行 一 次 TimerFeny Tasks- | 数组 
Executed 增加 一 次 , 当 其 达到 TasksToExe- | 默认 为 空 ， 
cute 设 定 的 执行 次 数 时 ,定时 器 停止 as 
3) 错误 发 生 导致 定时 器 停止 时 ,这 时 先 执 
行 ErrorFen 再 执行 StopFcn 
字符 品类 型 ， 
Tag 用 户 自己 给 定时 器 设 定 的 标签 默认 是 空 字符 串 (' ')， 
一 直 是 可 以 改写 的 








任何 大 于 0 的 double 型 数值 ; 
默认 值 为 1， 


TasksToExecute 指定 定时 器 需要 执行 TimerFen 函数 的 次 数 
一 直 是 可 以 改写 的 
任何 大 于 等 于 0 的 double 型 数值 


从 定时 器 开始 运行 时 起 ,记录 TimerFen 调 
TasksExecuted 用 的 次 数 ,TinierFcn 每 执行 一 次 ,TasksEx- | 默认 值 为 0; 


ecuted 自动 加 1 始终 是 只 读 理 的 
| TimeFam 类 型 ,字符 昌 ， 函数 句柄 或 者 cell 
数组 ， 

默认 为 空 ; 

一 直 是 可 以 改写 的 





































TimerFen 定时 器 的 回调 函数 


















字符 串 类 型 ， 
Type 标明 定时 器 的 类 型 仅 取 一 个 值 :timer: 
始终 是 只 读 的 





类 型 :用 户 指定 的 类 型 ， 
UserData 用 户 存储 的 一 些 数据 默认 值 : 空 ; 
一 直 是 可 以 改写 的 


表 12-1 列 出 了 定时 器 支持 的 属性 ,下 面 对 其 中 部 分 属性 进行 补充 说 明 。 
ErrorFcn，StartFcn,StopFcn 以 及 TimerFcn: 这 些 属 性 是 定时 器 用 以 实现 操作 功能 的 重 
要 组 成 部 分 ,四 个 属性 对 应 着 定时 器 不 同时 刻 不 同 状态 下 执行 的 函数 ,关于 函数 的 设 定 , 这 四 
个 属性 支持 的 格式 完全 一 样 , 即 可 以 是 字符 串 、 函 数 句 柄 或 者 cell 数组 ,默认 都 是 空 的 ,并 且 可 
”以 随时 访问 。 下 面 通过 一 个 简单 的 例子 来 说 明 。 
【 例 12.1- 1 运行 下 列 代码 ,体会 定时 器 中 各 类 型 回调 函数 的 用 法 : 











“ 族 沿 齐 准 娄 症 永 几 -HGVTIVIN 郑 由 让 区 上 渤 诗 深 天 二 。 西 源 言 记 过 较 卫 其 中 洋 防潮 
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运行 上 述 程序 结果 如 下 : 


.小 几 间 窜 灶 生 让 内 如 SGYTIVIN 郑 天 才 路 小 浴 计 让 天 本。 本源 言 订 寺 多 也 其 匡 汪 防潮 





上 述 程序 定义 了 一 个 定时 器 TimerA,TimerA 的 StartFen 采用 的 是 字符 串 类 理 ,ErrorF- 
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cn 采用 的 是 函数 句柄 ,而 TimerFcn 和 StopFcn 由 于 有 额外 参数 输入 ,因此 采用 的 是 cell 数 
组 。 这 四 种 函数 如 果 自 己 写 独 立 的 函数 进行 定义 时 ,所 定义 函数 都 默认 必须 有 两 个 参数 ,第 一 
个 参数 是 对 应 的 定时 器 句柄 ,第 二 个 参数 是 事件 信息 ,包含 了 触发 这 个 函数 时 的 一 些 时 间 、 消 
息 等 信息 ,第 三 个 参数 开始 才 是 用 户 传 人 的 参数 ,这 点 和 GUI 设计 中 控件 的 回调 函数 一 样 。 
上 述 程序 中 ,TimerFun 传人 的 参数 是 rand,stopfun 传 入 的 参数 是 “定时 器 停止 !” 这 个 字符 
串 。 需 要 说 明 的 是 ,定时 器 建立 起 来 ,TimerFun 等 函数 的 输入 参数 也 就 定 了 ,以 后 也 不 会 改 
变 了 ,除非 重新 设置 。 这 就 是 为 什么 上 述 代码 运行 结果 中 ,a 一 直 等 于 0. 278 5 不 变 。 

TimerA 的 执行 模式 是 fixedspacing( 几 种 模式 的 区 别 稍 后 介绍 ) ,周期 为 2 s“TasksTo- 
Execute” 设 为 10 表示 不 发 生 错 误 的 前 提 下 循环 10 次 定时 器 执行 完毕 。 

利用 start 函数 启动 定时 器 ,利用 wait 函数 等 待定 时 器 执行 完毕 ,定时 器 启动 后 首先 执行 
StartFcn, 即 显示 “定时 器 启动 1”, 之 后 开始 执行 TimerFun,TimerFun 内 部 首先 显示 用 户 的 输 
入 参数 a 等 于 多 少 ,并 判断 已 经 执行 的 TimerFun 次 数 是 否 等 于 5, 当 等 于 5 的 时 候 再 设置 一 
饥 已 经 执行 的 TimerFun 次 数 ,注意 到 “TasksExecuted” 的 属性 始终 是 只 读 型 的 ,因此 这 时 候 
会 发 生 错误 ,ErrorFun 被 执行 。 从 ErrorFun 的 执行 可 以 清楚 看 到 ,ErrorFun 第 一 个 默认 的 
参数 就 是 对 应 的 定时 器 ,第 二 个 参数 记录 了 发 生 错 误 的 一 些 信息 。 当 错误 发 生 时 ,首先 执行 
ErrorFun, 然 后 定时 器 停止 ,这 时 才 执 行 stopfun。 
BusyMode 和 ExecutionMode 
【 例 12.1- 2 下 列 程序 显示 BusyMode 的 性 质 。 





运行 结果 如 下 : 





。 泌 淮 认 娄 汪 束 斤 二 SGVTIVIN 淹 由 机 区 由 洛 诗 济 天 本。 瑟 痢 言 市 过 符 互 攻 等 防 计 
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当 BusyMode 设 为 “error” 时 候 , 由 于 TimerFun 函数 执行 的 时 间 长 于 period 的 0.5s 
(CTimerFun 内 部 有 一 个 暂停 1 s) ,因此 下 一 个 TimerFun 开始 执行 的 时 候 , 上 一 个 还 没有 执行 
完 ,这 时 发 生 错 误 , 从 而 显示 ”A 发 生 错误 ”。 而 把 BusyMode 设 为 drop? 或 者 “queue” 时 则 没 
有 上 述 错误 。 “ 

了 ExecutionMode (执行 的 模式 ) ,四 种 模式 的 意义 如 下 ， 

“singleShot" 模 式 : 只 能 执行 一 次 ,其 他 模式 都 可 以 执行 多 次 。 

“fixedSpacing ”模式 :上 一 次 执行 完毕 的 时 刻 到 下 一 次 被 加 入 队列 的 时 刻 之 间 的 间隔 是 指 
定 的 固定 时 间 长 度 。 

“fixedDelay” 模 式 : 上 一 次 开始 执行 的 时 刻 到 下 一 次 被 加 入 队列 的 时 刻 之 间 的 间隔 是 指 
定 的 固定 时 间 长 度 。 

“fixedRate" 模 式 :两 次 被 加 入 到 执行 语句 队列 的 时 刻 之 间 的 间隔 是 指定 的 固定 时 间 长 度 。 

:在 MATLAB 的 帮助 文档 中 搜索 “Differences - Between - 下 xecution - Modes” 可 以 看 到 
关于 上 述 四 种 模式 的 直观 的 说 明 图 。 下 面 的 代码 演示 了 "fixedSpacing” 和 “fixedDelay” 以 及 
“fixedRate” 的 异同 。 

【 例 12.1-3】 运行 下 列 代码 ,体会 ExecutionMode 不 同 模式 的 区 别 。 






* 洲 举证 词 曙 症 赴 兴 二 HGVTIVIN 淹 由 让 履 岂 洽 计 六 天 二 本源 言 市 过 遇 卫 基于 活 防 麻 
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运行 结果 如 下 : 





TimerA ,TimerB 和 TimerC 的 区 别 仅仅 在 于 “executionmode”, 从 上 面 的 结果 可 以 看 出 
“executionmode” 设 为 “fixedSpacing” 时 * 相 邻 两 个 TimerFun 之 间 的 执行 时 间 为 period 十 函数 
体 执行 时 间 。 而 设 为 “fixedRate” 和 “fixedDelay” 时 ， 由 于 队列 延迟 时 间 相 对 于 函数 体 本 身 执 
行 的 时 间 来 说 很 小 ， 因此 可 以 近似 认为 相 邻 两 个 TimerFun 之 间 的 执行 时 间 为 period 的 时 间 。 


12.2 定时 器 应用 举例 


本 小 节 以 两 个 实例 来 说 明定 时 器 的 一 些 用 途 , 希 望 能 给 读者 一 些 启发 。 

【 例 12.2 - 1】 利用 定时 器 实现 每 隔 随机 的 一 段 时 间 (0<t<5 s) 显 示 “Hello World” 的 
程序 。 * 
通过 前 面 的 讨论 ,我 们 知道 可 以 通过 定时 器 实现 每 隔 一 定时 间 进 行 特定 的 操作 ,其 实 ,利用 
定时 器 的 “StartDelay” 属 性 ,还 可 以 实现 每 隔 随机 的 一 段 时 间 进 行 特定 的 操作 。 下 面 的 程序 以 最 
简单 的 显示 “Hello Wonld 为 例 , 说 明了 如 何 实现 每 隔 随机 的 一 段 时 间 显示 “Hello World”。 


“ 洲 淮 羡 府 灿 生 下 几 HVTIVIN 尖 鹿 机 让 上 污 汪 六 天 二 - 杞 痢 语 记过 办 瑟 此 于 洋 院 齐 
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运行 结果 如 下 : 





【 例 12.2-2】 利用 定时 器 模拟 下 面 的 过 程 : 圆 形 跑道 周 长 是 500 m, 甲 、. 乙 两 人 按 顺 时 针 
沿 圆 形 跑道 同时 、 同 地 起 跑 , 甲 每 分 钟 跑 60 m, 乙 每 分 钟 跑 50 m, 甲 、. 乙 两 人 每 跑 200 m 均 要 停 
下 来 休息 1 min, 问 : 甲 首 次 套 圈 乙 用 多 长 时 间 ? 

如 果 用 代数 思路 的 话 我 们 可 以 这 样 分 析 这 个 问题 ; 

以 200 m 为 一 个 周期 , 甲 跑 200 m 需 200/60 王 10/3 min, 加 上 休息 的 1 min, 一 个 周期 是 
13/3 min。 同 理 可 求 出 乙 的 周期 是 5 min, 他 们 周期 的 最 小 公 倍 数 是 65 min ,也 就 是 说 65 min 
后 ,甲乙 休息 完毕 又 同时 起 跑 。 可 以 求 出 ,65 min 甲 完成 了 15 个 周期 , 即 3 000 m, 乙 完成 了 
13 个 周期 , 即 2600 m, 甲 超过 乙 400 m。 甲 再 追赶 乙 100 m 即 可 。 让 我 们 看 看 再 过 10 min 后 ， 
乙 这 时 候 刚 好 又 完成 两 个 周期 , 共 跑 了 3 000 m。 准 备 新 的 周期 , 甲 也 完成 两 个 周期 ,并 且 第 三 
个 周期 跑 了 4/3 min, 也 就 是 说 又 追 了 乙 80 m。 这 时 候 离 甲 休 息 还 有 10/3 一 4/3 王 2 min, 每 分 
钟 甲 追 乙 10 m, 所 以 甲 要 休息 时 刚好 追 上 乙 。 总 共用 时 77 min。 

下 面 的 代码 是 模拟 真实 情况 的 动画 ,利用 定时 器 来 控制 小 球 运动 。 以 1 s 代表 1 min。 定 
时 器 的 周期 设置 为 0.01 s。 WU 





殷 者 肯 旺 符 菇 甸 直 出生 嵌 区 “ 民 共 由 刀 村 权 保平 请 哄 MATLAB 全 杂 宁 眶 多 兴 林 棒 保 。 
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图 12. 1、 图 12. 2 分 别 是 追赶 过 程 中 以 及 追 上 后 的 图 片 。 





图 12.1 甲 追 乙 过 程 中 图 片 


“ 沪 册 间 这 曙 站 吉 国士 HGVTIVIN 淹 由 机 小 册 小 评 深 天 可。 本源 言 林寺 入 卫 棒球 活 辽 计 





图 12.2 甲 最 后 追 上 乙 的 图 片 
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由 于 10/3 min 应 该 精确 对 应 10/3 s, 而 程序 是 以 3. 33 s 代替 的 10/3 s, 因 此 ,追赶 时 间 会 
和 77 s 有 误差 ,不 会 严格 相等 。 

作为 示例 程序 ,上 述 程序 提供 了 一 种 利用 定时 器 做 动画 的 途径 。 实 际 中 ,一 些 需 要 独立 控 
制 的 界面 元 素 非 常 适合 利用 定时 器 来 控制 ,充分 利用 定时 器 的 功能 可 以 设计 出 强大 ,形象 直观 
的 动画 。 





IN 
四 “ 训 册 闪闪 籼 征 由 几 式 9VTLVI 淹 淖 机 党 岂 监 诗 济 关 本。 瑟 海 言 评 寺 稚 互 二 于 学 阶 漆 





[9] 
[10] 


[11] 
[12] 
13] 


15 


16] 


[17] 





[18] 





[19] 


[20] 


[21] 





[22] 


参 考 文 献 


姚 海 臣 . 长 输油管 道 控 制 系统 资源 配置 优化 研究 [D]. 大 庆 : 大 庆 石 油 学 院 ,2007. 
净 长 墨 , 曹 战 , 刘 清 荣 . 基于 遗传 算法 的 车 间 设 备 布 局 设计 研究 [J. 大 连 交 通 大 学 学 
报 ,2007,28(3) :33 一 37. 8 
曹 战 . 基于 遗传 算法 的 车 间 设备 布局 问题 研究 L[D]. 大 连 : 大 连 交 通 大 学 ,2007. 
卢 开 澄 , 卢 华 明 . 线性 规划 [MD]. 北京 :清华 大 学 出 版 社 ,2009. 
黄 红 选 , 韩 继 业 . 数学 规划 [MD]. 北京 :清华 大 学 出 版 社 ,2006. 
刘 思 峰 ,党 耀 国 , 方 志 耕 ,等 .灰色 系统 理论 及 其 应 用 [LM]. 3 版 . 北京 :科学 出 
版 ,2004. 
胡 振 涛 , 刘 先 省 . 一 种 实用 的 数据 融合 算法 [J]. 自动 化 仪表 ,2005,26(8) :7 一 9. 
王道 林 . 泰安 市 GDP 预测 的 灰色 模型 [J. 山东 科技 大 学 学 报 (自然 科学 版 ) ,2005， 
(2) :77 一 79 
范 金 城 , 梅 长 林 . 数据 分 析 LMD]. 北京 :科学 出 版 社 ,2002. 
邓 聚 龙 .灰色 控制 系统 [LM]. 2 版 . 武汉 :华中 理工 大 学 出 版 社 ,1997. 
高 惠 璇 . 应 用 多 元 统计 分 析 [M]. 北京 :北京 大 学 出 版 社 ,2005. 
刘 正 君 . MATLAB 科学 计算 与 可 视 化 仿真 宝典 LM]. 北京 :电子 工业 出 版 
社 ,2009. 
吴 祈 宗 . 运筹 学 与 最 优化 方法 LMDJ. 北京 :机 械 工 业 出 版 社 ,2003. 
李 庆 扬 , 关 治 ,白峰 杉 . 数值 计算 原理 [MD. 北京 :清华 大 学 出 版 社 ,2000. 
李 星 . 积分 方程 LMD]. 北京 :科学 出 版 社 ,2008. 
Geoffrion A M,Graves G W. Multicommodity distribution system design by benders de- 
composition[ 们 .Management Science,1974,20(5) :822 一 844 
Yang J，Zhang D,Frangi A,et al，Two-dimensional PCA: a new approach to appear- 
ance -based face representation and recognition。IEEE Tansactions on Pattern Analysis 
and Machine Intelligence [JJ，2004，26(1) :131 一 137. 
Chen S，Zhu 立 ，Zhang D，et al，Feature extraction approaches based on matrix 
pattern: MatPCA and MatFLDA[J]. Pattern Recognition Letters，2005，26(8) : 
1157 一 1167. 
Zhang D, Zhou Z H. (2D)2PCA: two-directional two-dimensional PCA for efficient 
face representation and recognition [J. Neurocomputing，2005，69(1 一 3) :224 一 231. 
Rajkiran Gottumukkal，Vijayan K Asari，An improved face recognition technique 
based on modular PCA approach [JJ]，Pattern Recognition Letters ，2004，25 
(4) : 429 一 436. 
Yang J]，Yang ] Y. From image vector to matrix: a straightforward image projec- 
tion technique 一 IMPCA vs. PCA [J]，Pattern Recognition ，2002，35(9) :1997 
一 1999. 
Won Young Yang，Wenwu Cao，Tae-Sang Chung，et，Applied numerical 


纪 xz Arrune 


WwW.LoveMafiab.cn 


[23] 


[24] 


[25] 


methods using MATLABLM], New Jersey，Hoboken:John Wiley & Sons，Inc， 
2005. 

. FShampine，M.W. Reichelt，J.A. Kierzenka，Solving index-1 DAEs in 
Matlab and Simulink[J]. SIAM Review，1999,41: 538-552. 

Shampine L FE，Gladwell I，Thompson S，Solving ODEs with MATLAB[LMI]. 
New York :Cambridge University Press,2003. 

Davis P J. Interpolation and Approximation[M]. Boston ;Ginn(Blaisdell) ,Massa- 


chusetts,1963. 


党 沿 疾 准 煌 站 由 关 8VTIVIN 郊 风机 小 岂 族 诗 济 天 可。 西 涡 言 林 小 畦 五 贞 环 演 陀 浊 





